NORTHERN BYTES 




Volume 5 Number 3 



Welcome to another issue of NORTHERN BYTES. Hopefully, 
this publication will be appearing on a somewhat more timely 
basis in the future. I expect that if all goes well, we will publish 
between four and six issues this year. There is a tradeoff 
involved - we can have more issues and fewer pages per issue, or 
fewer issues with more pages. I think that it is not unreasonable 
to expect this publication to appear on at least a quarterly basis, 
but more often than that might put a strain on the budget. 

He want you to consider NORTHERN BYTES as your forum 
for exchanging ideas and public domain software. The TAS Public 
Domain Software Library is now a reality, and if you are 
interested in acquiring some good public domain software, send a 
self-addressed stamped envelope to TAS for information on the 
library. We are striving for quality rather than quantity in this 
library, so although we have relatively few public domain disks at 
present, those disks have many good programs on them. 

Please feel free to contribute your public domain programs 
to the Library, and/or for publication in Northern Bytes. If you 
send us a program, please state whether it's intended for 
NORTHERN BYTES or for the Public Domain Library. If you don't 
specify, well assume we can use your program in either medium, 
or both. In fact, unless you tell us otherwise, we'll assume that 
any submission to NORTHERN BYTES may also be placed in the 
Public Domain Library. 

We've got a lot of material to go into this issue, so I'm not 
going to waste any more space on long-winded opening remarks. I 
hope you enjoy this issue of NORTHERN BYTES! 

NOTICE TO COMPUTER 

CLUBS A.N.JD USER GROUPS: Many 
computer dubs and user groups are receiving NORTHERN BYTES 
on an exchange basis. The word "exchange" implies just that - you 
send us your club or user group newsletter, we send you 
NORTHERN BYTES in return. Granted, we don't publish monthly, 
but generally speaking, an issue of NORTHERN BYTES usually 
contains at least two or three times as much material as the 
average computer club newsletter (you have my congratulations 
and respect if your club has an above-average newsletter!). 

Some user groups have been getting a "free ride" - we've 
been sending NORTHERN BYTES, and those groups have not 
reciprocated by sending their newsletters. THIS WILL BE THE 
LAST ISSUE of NORTHERN BYTES that those groups will receive, 
unless we start receiving their newsletters. If, for some reason, 
your club is temporarily not publishing your newsletter (for 
example, if you're "between" editors), please write and explain 
the situation, and I will consider your case on an individual basis. 
If I don't hear anything from your group, though, this will be it! 

Even if you think your group is exchanging newsletters with 
us, it might not hurt to have your club secretary check your 
mailing list. Due to the long delay between appearances of 
NORTHERN BYTES, we were dropped from a few exchange lists, 
and apparently have not been reinstated. I'd hate to drop a dub 
from the mailing list due to a simple mixup. 

I very much enjoy reading the newsletters from the various 
TRS-80 user groups, and hope to continue receiving one from your 
group! 

THE EXTERMINATOR - This is where we kill the bugs that 
have been lurking from previous issues. 

In Northern Bytes, Volume 5, Number 1, we ran an article 
entitled, "Color Computer and Model I/III Compatibility", which 
featured the NEWDOS/80 PDRIVE settings required to read Color 
Computer disks. Unfortunately, some of our readers took that to 
mean that they could pull a directory and read files from the CoCo 
disk. Sorry about that. When you use the PDRIVE settings 
mentioned, you can do only two things (or so I've been told)! 
First, you can do a full disk copy from one CoCo disk to another, 
PROVIDED that BOTH disks are ALREADY FORMATTED!! You 
CANNOT format a CoCo disk, or copy anything less than the full 
disk. Second, I am told that you can use SUPERZAP to scan 



individual sectors on the CoCo disk. And that is ALL you can do, 
at least until one of you folks sends us some sort of neat utility 
program that will transfer files to and from a CoCo disk. 

In our last issue of Northern Bytes (Volume 5, Number 2) we 
featured Tony Domigan's TRSDIR program (a program to pull a 
directory from a Model III TRSDOS 1,3 disk while using 
NEWDOS/80), which I had modified in order to make it run on the 
Model I and to add other improvements. Unfortunately, I 
outsmarted myself this time. Tony's original program used code 
similar to that shown below, which I replaced with a CALL OFBDH 
instruction (this call converts a number stored in the arithmetic 
accumulator to a string for display purposes). I figured that I 
was saving a few bytes, since the code below and a CALL OFBDH 
instruction produces the exact same format string with any 
positive integer. Since this code is used to display the number of 
free granules remaining on the TRSDOS disk, I figured it was safe 
to make the change because, after all, you can't have a negative 
number of free grans on a disk. Besides, the replacement routine 
worked every time I tested it. 

Unfortunately, the routine at OFBDH does not consider zero 
as a positive integer - technically, zero is neither positive or 
negative. It seems that the ROM routine at OFBDH is a stickler 
for the technicalities, and the resulting string is in a slightly 
different format when zero is the value to be displayed. And, of 
course, it's quite possible to have zero grans of free space left on 
a disk. The program as published last month would display 
something like "0@#i!, Free Granules" in that situation. 
Naturally, in compliance with Murphy's Law, I didn't try to pull a 
directory off of a completely full TRSDOS disk before I published 
the program. 

What to do to fix the bug? I took a look at Tony's original 
routine, put it back into the program, and found that it does work 
with a value of zero. He got it from Mumford Micro Systems' 
book, "Inside Level II", and they apparently got it from the ROM 
(starting at 0FB2H). Actually, I've made one change in the code - 
the ROM, "Inside Level II", and Tony Domigan all used an OR (HL) 
instruction. Since HL is set to 4130H in the subroutine at 1034H, 
I substituted an OR L instruction to reset the Z flag (it may not 
be shorter, but it saves seven whole T-states. After all, a true 
hacker has to be able to improve on the original code somehow!) 

So - if you typed in the TRSDIR program from the last issue, 
please insert the following lines into the program to replace the 
CALL OFBDH instruction, and re-assemble it. And, if you've tried 
use the ROM subroutine at OFBDH and found that it didn't format 
the numeric string quite the way you wanted it to when zero was 
the value to be displayed, you may find that substituting the 
following code will do the trick for you. Here's the replacement 
code, which can be inserted into the program using the line 
numbers shown (line 1750 is replaced): 



01750 


XOR 


A 


{Specify non-format edit 


01752 


CALL 


1034H 


(Setup edit flag & buffer 


01754 


OR 


L 


(Set NZ flag 


01756 


CALL 


0FD9H 


{Change to numeric string 



LETTER TO THE EDITOR - The following letter is from Greg 
Small, Box 607, Stouffville, Ontario, Canada L0H 1L0 . Greg's 
ideas should be of interest to you NEWDOS/80 users, so I am 
reprinting his letter here! 

Dear Jack! 

I was speaking to Charley last week about a Newdos/80 
users group and he suggested I write to you with my thoughts. 

+ Apparat appears to have ceased supporting Newdos/80. 

+ There seems to be a large number of users of ND/80 and 
they have nowhere to turn for support or advice. 

+ There is a need for support programs and support service 
for ND/80. 

I propose the setting up of a loose knit international 
(world-wide) user group with approximately 25 regional bulletin 



boards as the base. Each board would further service local 
boards. 

These regional boards would collect and disseminate 
information as available. If a question was asked or information 
became available locally that was not available to the group as a 
whole the local collector would pass this on to either a central 
clearing house or to the next board in the chain, who would then 
pass it on to the next, until the message had made it back to its 
starting point. 

The local boards would access the regional boards for 
information. As well, there would be a "published" newsletter 
that would further serve to collect all information as hardcopy. to 
be available to those without communication facilities on their 
computer. 

I envisage a nominal membership fee to defray the costs of 
the regional or local boards information exchanges. This would be 
something on the order of $10 per year with a small percent going 
to the international organization to defray the cost of keeping the 
whole thing together. 

I would like to see it set up as a non-profit organization 
with perhaps some corporate sponsorship in exchange for 
advertising in the newsletters. In the event that the organization 
made substantial money the costs would be reduced for the 
following year. 

We appear to, collectively, have a vast amount of 
information. But, this is not available to the Newdos/80 
community as a whole due to the lack of an organization, It also 
seems that many of us duplicate the work of others. 

I also feel that large numbers of users will not upgrade 
their system for the forseeable future as they have everything 
they want in their present system. Thus, it is imperative that 
Newdos/80 be kept alive. 

Please let me have your thoughts on this. I have sent 
Charley a copy as I wanted him to be kept up to date on this. 

Best regards, Greg Small 

(Voice-7pm-9pm 416-640-4700, Data-24 hours 416-640-3434) 

Editor's comments! I feel that Greg's ideas have merit for 
two reasons. One is that considering the large number of 
NEWDOS/80 users, it is very surprising that you seldom see 
NEWDOS/80 user groups on either a local or national level. One 
factor in this may be that NEWDOS/80 is easy to use, something 
that cannot be said for some of the other disk operating systems 
(perhaps the users of some of those operating systems HAVE to 
band together in order to figure out how to operate their DOS). 
Nevertheless, I feel that a NEWDOS/80 user organization would 
be a worthwhile source of information. 

Also, Greg proposes the "networking" together of many BBS 
systems - something that should be a reality already in the BBS 
community, but in fact is done rarely or not at all. I have often 
wondered why a BBS user cannot leave a message on his local BBS 
for a user of another (distant) BBS, and have the message 
forwarded (over a period of time) to the receipient's local BBS 
system. A message base could be "shared" among more than one 
BBS. As far as I know, there is no BBS software available that 
really embraces the concept of sharing a message base among 
more than one system. The actual transfer of messages could be 
either on a general basis (all BBS's eventually receive all 
messages) or on a "directed" basis (messages could be 
"addressed" to a specific receipient BBS), or a combination of 
both, and the actual transfer of messages could be either by 
telephone (perhaps at night when rates are low) or by mailing 
disks containing the message base files. If a number of BBS's 
could be networked together, a "master" BBS could use outward 
WATS lines (or MCI, SPRINT, etc. service) to call all "satellite" 
systems once or twice each night (perhaps once to receive all 
incoming messages, then after "sorting" the messages it would 
call back each BBS and "leave" the messages directed to that 
BBS). Those of you into telecommunications might enjoy the 
challenge of writing the software to accomplish something like 
this. 

But, to get back to the original thought of Greg's letter, I 
hope that those of you that use NEWDOS/80 and that feel you 
could benefit from belonging to a nationwide users group will 
contact Greg and register your support for this project, If you 
don't, then don't complain the next time you need some assistance 
and have nowhere to turn! 

MOVING MODEL 4 ROM INTO RAM - The hardware design of 
the Model 4 makes it possible to "flip" the ROM code into the 



Model 4's low RAM, so that Model III BASIC becomes RAM-based, 
which in turn makes it possible to patch BASIC or other parts of 
the ROM (such as the device drivers). I use this capability in my 
VIDE04 program, in order to patch certain BASIC commands and 
functions to operate correctly in a 24x80 display environment. 

This works fine as long as you don't use LDOS 5.1 or 
NEWDOS/80 as your Disk Operating System. However, both of the 
aforementioned DOSes use the ROM area (starting at 0OO0H or 
0100H, respectively) as a "bit bucket" during disk write-with- 
verify operations, so when you have moved the ROM code into 
RAM, LDOS or NEWDOS/80 will bomb it as soon as you do any 
disk write operation (including a write to the disk directory, as 
would happen when a file is KILLed or RENAMEd). The following 
patches move the location of the "bit bucket" from 0000H or 0100H 
to 3800H (the memory-mapped keyboard area, which is still 
considered a "read-only" section of memory). I'm not certain, but 
I suppose it's remotely possible that under certain conditions, 
LDOS or NEWDOS/80 might use a "bit bucket" of more than the IK 
of keyboard memory located between 380OH and 3BFFH. If that 
were to happen, garbage would be written into the video display 
memory (starting just above the keyboard memory, at 3C00H), so 
you would have a visual indication of the problem. If you actually 
experience this phenomenon, I'd like to hear from you. Here are 
the patches! 

LDOS 5.1 for the Model III! Type the following line from 
LDOS READY! 

PATCH SYS0/SYS.RS0LT0FF (X'46C2'=38) 
(NOTE! You may wish to verify that this byte is the correct 
location to change before applying this patch. If so, use DEBUG 
to examine the three bytes starting at 46C1H in memory. Prior to 
the application of this patch, they should be 26 00 CD. Also, note 
that the password RS0LT0FF used in the above command line 
contains two ZEROES, not two letter "0"s). 

NEWDOS/80 version 2.0 for the Model III! Use the DFS 
function of SUPERZAP to make the following zap to SYS0/SYS, file 
sector 02, byte AB! 

change! 26 01 CD to! 26 38 CD 

(NOTE TO MODEL I USERS! This same zap can be applied to 
the Model I version of NEWDOS/80, but the location to patch is 
SYS0/SYS, file sector 03, byte 2A, so if you are a Model I owner 
with a hardware modification that allows you to move ROM into 
RAM, you also can fix NEWDOS/80 to work with your system.) 

PLEASE NOTE that these patches have NOT been completely 
tested. If you apply them, please test them thoroughly before you 
use them with any irreplaceable programs or data. 

Thanks to GREG SMALL from Stouffville, Ontario, Canada 
for his assistance in helping to discover the source of the 
problem. NO thanks to Apparat, because they offered absolutely 
no assistance in tracking down the problem (it seems that they are 
now pursuing the IBM market, and don't have much interest in 
providing further support for the TRS-80 products that made them 
rich in the first place). 

ANOTHER VIDE04 PATCH - If you prefer TRSDOS 1.3 to 
NEWDOS/80 (see above item), try this patch to fix up the 
directory display format when using VIDE04, It does not seem to 
affect the normal directory display when VIDE04 is not in use. 
From TRSDOS READY, enter the following command! 
PATCH *6 (ADD=5AFA,FIND=3F,CHG=0F) 

VIDE04 UPGRADE AVAILABLE FREE! - If you are a 
VIDE04 owner, and you did NOT receive a registration form when 
you purchased VIDE04 (or if your copy of VIDE04 does not 
display a copyright notice and version number when you first run 
it), you may return your master VIDE04 disk and a 
self -addressed, stamped disk mailer (or whatever you use to mail 
disks) to TAS for a FREE upgrade. You MUST enclose the 
stamped, self-addressed disk mailer or your disk will NOT be 
returned (you have been warned!). There is no other charge for 
the upgrade. If you live outside the U.S.A., you may send an 
unstamped mailer and 54 cents in U.S. coins (or 65 cents in 
Canadian coins) - if you live outside the U.S.A. or Canada, that 
will buy surface delivery only (small packet rate). 

The upgraded version of VIDE04 supports the on-screen 
clock display (available from DOS through use of a CLOCK ON or 
CLOCK Y command), and also makes the clock keep the correct 
time when the fast clock speed is used. It also causes the 
computer to emit an audible "beep" when certain BASIC errors 
occur. Along with the upgrade, you will receive a registration 
form which will allow you to register your copy of VIDE04, You'll 



also receive a PATCH UPDATE sheet which will inform you of the 
one-byte patch you need to make to your DOS in order to use 
VIDEQ4, if you use NEWDOS/80, LDOS, or TRSDOS 1.3 (these 
patches are the same ones mentioned in previous paragraphs of 
this newsletter). 

Let me also mention a couple of other DOS compatibility 
lotes - if you use VIDE04 with TRSDOS 1.3, you should probably 
HOT use the fast clock speed option, unless you like saving 
garbage instead of good data to your disk files, And, jf you use 
VIDE04 with MULTIDOS, make sure you have the current version 
of MULTIDOS. If you do not have MULTIDOS version 1.6b (or 
later), send your master disk and a $5.00 upgrade fee to 
Cosmopolitan Electronics (NOT to TAS) to get upgraded to the 
current version. 

Some of you may be wondering, "what is VIDE04?" The 
answer is that it's a program that permits use of the 24X80 video 
display mode and fast clock speed of the Model 4, while in the 
Model III mode. Although there are similar packages available 
that are less expensive, VIDE04 is a far superior package, and 
COMMENTED EDITOR-ASSEMBLER SOURCE CODE is included on 
the disk, in case you want to "tweak" the program a bit! Contact 
The Alternate Source for further information on the VIDE04 
package. 

Jack Decker - The purpose of this article is to give you some 
basic information you may have wished you'd had if you ever 
wanted to add your own /SYS overlays to a Disk Operating 
System. This article is written for those that already have some 
familiarity with DOS operations - specifically, I will assume that 
you know how to use the SUFERZAF program supplied with 
NEWDOS/80. 

You might wonder why you'd want to add a /SYS overlay to 
your DOS, The answer is that you might want to add a command or 
function to your operating system that requires more code than 
that which can be placed in a simple patch to an existing system 
file. Actually, I had a somewhat similar problem, which prompted 
me to ferret out this information. As you may be aware, TRS-80 
Disk BASIC uses an "ampersand <&) function" to convert 
hexadecimal or octal constants to variables. Its application is 
fairly limited, for example, you can't use the INPUT statement to 
input a string of hexadecimal digits and then use the &H function 
to convert them to decimal, because the &H function only works 
with constants placed within the program itself, not with 
variables. So, I wrote an improved ampersand function routine, 
which appears in Appendix VI of my book, "TRS-80 ROM Routines 
Documented." The only problem with the new routine was that it 
had to be loaded into high memory after calling up BASIC from 
DOS READY. Since I usually didn't bother to do this, the routine 
was never available when I wanted to use it. What I wanted to do 
was to make my "improved" ampersand routine a more-or-less 
permanent part of Disk BASIC. 

Even though BASIC is, strictly speaking, an application 
program (that is, a visible /CMD file) rather than a part of the 
DOS, there are nevertheless several /SYS overlays that are on 
the disk solely to support and provide additional functions for 
BASIC. Since BASIC tan call and use those /SYS overlays, I 
figured that I ought to be able to convert my ampersand function 
routine into a /SYS overlay that BASIC could access at any time. 

The following paragraphs describe how I did this with 
NEWDOS/80. If you are using another DOS, the actual method 
may be different (and you are on your own), but some of the 
principles involved may be similar, The NEWDOS/80 manual has a 
discussion of user coded system routines in section 12.6.1, but it 
is so brief that it is almost unintelligible (as a matter of fact, I 
didn't even know it was there until someone called my attention to 
it after reading a first draft of this article - which was probably 
a good thing) because I think I would have been more confused had 
I read the manual discussion first). 

First of all, I made a few changes to the source code of the 
ampersand function routine as published in the book (if you don't 
have the book, you're in luck - sort of. The routine had a bug in it 
so the corrected version is being printed elsewhere in this 
newsletter. However, if you need the instructions for using the 
routine, you'll have to get your hands on a copy of my book). In 
addition to fixing the bugs in the routine, I deleted lines 100-140, 
changed the ORG address in line 170 to 4D00H, and changed line 
1260 (now line 1250 in the corrected version) from END 06CCH to 
END START. Then I assembled the program using the filename 
SYS2?/SYS:0 . At this point I had created a usable DOS overlay 



with the name SYSiV-'Si'S, which resided on the system d)-;'K in 
drive zero, and which when loaded would reside in the DOS overlay 
area starting at 4D00H. The only problem was, BASIC had no idea 
that it was there, or that it was now supposed to use this overlay 
to interpret any "&" function call. 

Time to patch the DOS exit for the "&" function. This is 
found at 4194H, and in the Model I version of NEWDOS/80 
normally contains a JP 5790H instruction. Instead of going there, 
we want it to call our new SYS29/SYS overlay and execute it, so 
we simply change this to a LD A,3FH instruction followed by a 
RST 25H instruction. RST 28H is used for DOS overlay requests 
(among other things), on entry, the value in the A register 
indicates the DOS overlay to be called. Wait a minute - how do we 
get 3FH out of system overlay number 29 (SYS29/SYS), I hear you 
ask. Well, for one thing, the actual filename used is not 
important here - once we get this working, we could change the 
filename SYS29/SYS to TOADSTL/FRG or something equally 
ridiculous and it would still work - I'll explain later. But, for the 
time being, consider the byte in the A register as TWO numbers - 
one in the most significant three bits, and the other (the /SYS 
overlay number! in the least significant five bits. In other words, 
our eight-bit byte looks like this! 

U1TUSSBBS 

The bits in UUU are a "user code", and are defined as such 
so that one overlay can be used by more than one command or 
function, as will be explained later. These three bits can be set 
to any value EXCEPT 000 (zero), meaning that user codes from one 
through seven (decimal) are permissible. Since we are only using 
this overlay for one function, we can use any non-zero value we 
want to, so for the sake of argument, let's set the user code to 
"1" (that's 001 binary). 

Bits SSSSS are the system overlay number PLUS TWO, So, in 
this case, we have a "user code" of 001 binary and an overlay 
number of 29 + 2 = 31 decimal = IF hexadecimal or 11111 binary. 
Put those binary numbers together and we have 001 11111 
binary, or 3F hexadecimal - which is why we load the A register 
with 3FH before doing the RST 28H, Note that the LD instruction 
is two bytes long and the RST instruction is only one byte long, so 
this code fits nicely into the DOS exit for the "&" function, 

We could, of course, POKE the proper code into the DOS exit 
each time we enter BASIC, but we can make the change permanent 
by using SUPERZAP to patch BASIC/CMD. In the Model I, the 
patch is as follows! 

BASIC/CMD,17,44 change 64 C3 90 57 C3 to 64 3E 3F EF C3 
Model III users may need to apply the patch in a different 
location, if so, the F (find) function of SUPERZAP may aid you in 
finding the proper location to patch. 

Hold it, Fillmore, we're not quite through yet. If you go into 
BASIC and try to use the "£" function, you'll probably get a 
SYSTEM PROGRAM NOT FOUND message and then you'll get 
thrown back to DOS READY. The reason is that the DOS does not 
look for its /SYS overlays by using the filename, Instead, it 
expects to find SYSn/SYS in directory slot number n+2 (that's why 
we had to add two to the system overlay number in the above 
paragraph). If the first byte of that directory slot is 5FH, 
indicating that the protection level of the program is "system", 
then the DOS could care less what the actual filename is - it 
figures that that's the SYS overlay it wants, and goes ahead and 
uses it. So, before we can use our new SYS29/SYS, we have to get 
its directory entry into the proper slot, and we have to protect it 
as a /SYS file. 

Time to call up SUPERZAP again. Use SUPERZAP'S DFS 
function to examine DIR/SYSJ0, and use the + key to page through 
the directory. Find SYS0/SYS, then SYS1/SYS, then SYS2/SYS, 
and so on. You'll soon notice a pattern - with the exception of 
the first two sectors of the directory (the GAT and HIT sectors), 
the /SYS files are arranged in ascending order through the 
DIR/SYS file. It's easier for you to discover the pattern by 
examining DIR/'SYS with SUPERZAP than it is for me to try and 
explain it, so go ahead - I'll wait. 

Oh, you're back. Well, if you're any kind of a programmer at 
all, you've probably already figured out which directory slot your 
SY529/SYS file has to occupy - it's the slot just below SYS21/SYS 
on the SUPERZAP display (from the top of the display you'll see 
SYS5/SYS, SYS13/SYS, SYS21/SYS, and the slot just below that is 
where SYS29/SYS must go). So, how do you get SYS29/SYS into 
that directory slot? Well, you could copy the SYS29/SYS directory 
entry from its present location into that slot, then zero the 
original slot and use SUPER-UTILITY or a similar program to fix 
the Hash Index Table, You could reread Pennington's book and 



rebuild the directory to proper specifications. Or, you could cheat 
a hit snr: do it the laiy man's way. I took the latter route. 

Basically, it works like this. First of all, let's assume that 
there's already a valid directory file entry occupying the slot that 
3YS29/SYS should be in. Copy that file to another disk (you can 
copy it back to your system disk later), If there is no valid 
directory file entry in that slot (no entry at all, or the entry of a 
previously KILLed file, as indicated by the first byte of the entry 
containing a value of zero), then use the CREATE command and 
keep CREATING files (create five or ten at a time - use short 
filenames like 01, Q2, etc.) until you get a valid file to occupy 
that directory slot. Check with SUPERZAP to make sure that the 
first byte of that directory slot is a non-zero value. 

Once you have the directory entry of a valid file (one that 
has not previously been KILLed) occupying the directory slot 
where SYS29/SYS should be, note the filename presently in that 
slot (let's suppose it's OLDFILE/CMD). Be sure to copy 
OLDFILE/CMD to another disk if you want to save it, then issue 
a command of the form! COPY SYS29/SYS TO OLDFILE/CMD , 
Then KILL SYS29/SYS and then 

RENAME OLDFILE/CMD TO SYS29/SYS . You should now have 
SYS29/SYS in its proper slot (use SUPERZAP to check), but it still 
isn't protected as a system file. To do that, use SUPERZAP to 
change the first byte of the directory entry from whatever it is 
now (probably 10) to 5F, You may also wish to drop down to the 
second line of the directory entry and change the password bytes 
(the first four bytes on the second line) so that they are the same 
as those in the directory entries for the other /SYS files on that 
disk, 

Don't forget copy the file you moved to another disk <if any) 
back to your system disk, and/or to kill all of those "garbage" 
files you CREATEd in a previous step (if any). 

Admittedly, this process is a lot easier to do than to 
describe, particularly if you're already familiar with SUPERZAP 
and with the organization of the disk directory. The whole point 
of the above few paragraphs was to get our new SYS29/SYS file 
into the proper directory slot where the DOS could find it. If you 
have an easier method of accomplishing this, by all means use it 
(then write it up and send it in so the rest of us can use it). 

I mentioned that an overlay could be used for more than one 
function. Suppose that we combined the ampersand routine 
mentioned above with a two-byte POKE command (which would 
complement the &PEEK function of the ampersand routine). We'll 
use the command NAME POKE because NAME is a reserved BASIC 
keyword that is unused in NEWDOS/80, and is vectored out to 
reserved RAM (in much the same way that the ampersand function 
is, except that NAME is considered a BASIC command , while the 
ampersand function is just that - a function . This is an important 
distinction, because PEEK is a function while POKE is a command, 
In BASIC, you must always "do something" with the result of a 
function - PRINT it, assign it to a variable, etc. - but the same is 
not true of a command), 

Let's use the same overlay for both the ampersand function 
routine and the NAME POKE routine - the only difference is that 
we'll continue to use a user code of one for the ampersand 
function routine, but we'll assign a user code of two (actually any 
valid user code other than one) to the NAME POKE routine. Both 
routines will be part of SYS29/SYS, but when we want to call the 
NAME POKE routine, the user code two (010 binary) will be 
combined with the bits in SSSSS (still 11111), giving us a combined 
code of 010 11111 binary or 5F hexadecimal. So, when we want to 
use our NAME POKE function, we would simply load the A register 
with 5FH and do a RST 2SH. This would normally be done from the 
NAME command DOS exit at 41SEH - if you're patching BASIC, the 
Model I patch would be! 

BASIC/CMD,17,3E change 57 C3 4A IE C3 to 57 3E 5F EF C3 
The contents of the A register are not destroyed by the act of 
loading the DOS overlay, so at the very start of the overlay we 
can test the value of A and jump to the appropriate section of the 
overlay. This is done in the following section of code. To add 
this code to the ampersand function routine., first delete all lines 
up to and including line 180 in the present version of the routine, 
then add the code shown below to the start of the routine. Then 
assemble it as SYS29/SYS using the same method detailed above! 



00060 


ORG 


4D00H 


JSystem overlay area 


00070 START 


CP 


3FH 


JCalled from £■ function 7 


00080 


JR 


Z.AMPRFN 


!Go if so 


00090 


RST 


8 


JSyntax Error if "POKE" 


00 1 00 


DEFB 


0B1H 


! doesn't follow "NAME 



00110 




CALL 


2B>:'2H 


00120 




PUSH 


DE 


00 1 30 




RST 


3 


00140 




DEFB 


t 


00150 




CALL 


2B02H 


00160 




EX 


(SP),HL 


00170 




JP 


28t"H 


00180 


AMPRFN 


RST 


10H 



!Get address to POKE 
JSave address to POKE 
iSyntax Error if comma 
! doesn't follow address 
!Oet value to POKE 
!Save In ptr.get POKE adr^ 
IFimsh up m ROM 
[Get next character- 



Note that at the start of this section of code, we tested the 
A register for 3FH (a user code of one, indicating that the 
ampersand function wa~ called! and if we did not find it, we 
assumed that the A register contained 5FH (user code two) since 
those are the only two ways that this overlay can be entered, 
However, note that values of 3FH, 5FH, 7FH, 9FH, BFH, DFH, and 
FFH could all be used to access overlay SYS29/SYS, and that 
those values correspond to the seven possible user codes, At the 
start of the overlay, we could test for the various possible values 
and jump to the appropriate routine, So, one overlay could hold up 
to seven different routines, which need not be related to each 
other in any way other than being contained within the same 
overlay file' 

The point of all this is that sometimes when you want to add 
an extension to the DOS or to Disk BASIC, it's not always 
necessary to make it high-memory resident - particularly if it's 
code that's only used occasionally for a specific purpose, Think 
about using overlays for those "once in a while" applications' 

"SBBsSSLSm-SSmm^ nRGVt$PJS>"-«"s - it's ^en 

said that no program is ever fully debugged, and I'm beginning to 
believe it. For example, I wrote an "Improved Ampersand 
Function" routine that ultimately became Appendix VI of my book, 
I tested it every way I could think of, and it seemed to work just 
fine. Others have used it for months, and it was reprinted in a 
computer club newsletter, and I hadn't heard of anyone having 
problems with it. That's why I was a bit incredulous when Nathan 
Harrington phoned me from Lincoln, Nebraska to tell me that he 
had found a bug in it. As it turned out, he was right. 

It seems that if the routine is enabled and the following line 
is executed from BASIC, the system bombs with a "STRING-^ 
FORMULA TOO COMPLEX ERROR" on the tenth loop! 

10 FOR A=l TO 20! PRINT &H(&FN(A))i NEXT 

Nathan thought that the &FN routine (which converts a number to 
a hexadecimal string) was the source of the problem - a logical 
assumption, but not correct. Actually, the &H(string) routine was 
the culprit. Nathan also thought that the string workspace in 
reserved RAM was not being cleaned up properly, and that DID 
turn out to be correct. In any event, I sat down with my copy of 
"Model III ROM Commented" (which I could probably sell a 
thousand copies of if I had them to sell, since the publisher, Soft 
Sector Marketing, is no longer in business), and discovered a 
handy ROM routine (what else?) that not only did the job of 
cleaning up the workspace and eliminating the bug, but also did 
some of the work that I had been doing in my routine. This 
actually allowed me to shorten the routine by a few bytes. 

The listing of the revised program is below. Changes from 
the book version are as follows! The ORG address in line 170, and 
the changed code in lines 770-810. Also, line 820 and all lines 
following were numbered greater by 10 in the book version (820 
was 830, etc). And last (and probably least), the glaring error in 
the comment in line 100 has been fixed (it's not a link to the USR 
function vector...). 

The text in the book is still correct, with the exception of 
the MEMORY SIZE of 32591 in the last paragraph, which now 
reserves a bit (well, four bytes, actually) too much memory! 

The revised program listing follows. I am sorry for any 
inconvenience this may have caused anyone. Please advise me if 
you have any further problems with this routine. 

LINK TO 8 FUNCTION VECTOR 





ooioo ; 




00110 


>w 


00120 


4194 C3537F 


00130 




00110 




00150 ! 




oouo 


7F53 


00170 


7F53 07 


00180 START 



ORG 
JP 



1194H 
START 



JVECTOR FROM "8" FUNCTION 
J JUMP TO START OF R0UTir"~~ N 



MAIN PROGRAM BEGINS HERE 

ORG 7F53H WIN FRGM-MAY RELOCATE 



RST 



10 



!GET NEXT CHARACTER 



7F51 CB7F 


mm 


BIT 


7,A 


CHECK FOR TOKEN 


7F5A 2811 


00200 


JR 


Z.NOTTKN 


GO IF NOT BASIC TOKEN 


7F58 F5 


00210 


PUSH 


AF 


SAVE TOKEN 


7F59D7 


00220 


RST 


10H 


GET NEXT CHARACTER 


7F5A cd:c;s 


00230 


CALL 


252CH 


EVALUATE EXPRESSION 


7F5D E3 


00210 


EX 


<SP),HL 


SAVE BASIC POINTER 


7F5E E5 


00250 


PUSH 


HL 


RE-SAVE TOKEN 


7F5F CD7F0A 


00260 


CALL 


0A7FH 


CHANCE TO INTEGER 


7FA2 Fl 


00270 


POP 


AF 


GET TOKEN 


7F63 FEES 


00280 


CP 


0E5H 


2-BYTE PEEK? 


7F65 200? 


00290 


JR 


NZ.NOTPK 


IF NOT 2-BYTE PEEK 


7F67 5E 


00300 


LD 


E,(HL) 


GET CONTENTS OF ADDRESS 


7FA8 23 


00310 


INC 


HL 


' POINTED TO BY HL AND 


7F69 56 


00320 


LD 


D,(HL) 


• PUT IN DE REGISTERS 


7F6A ED532M1 80330 


LD 


(1121H),DE 


AND HATH BUFFER 


7F6EE1 


00310 


POP 


HL 


(RESTORE BASIC POINTER 


7F6F C9 


00350 


RET 




NUMBER IN BUFFER 8 DE 


7F70 FEBE 


00340 NOTPK 


CP 


0BEH 


CHECK FOR HEX CONVERSION 


7F72 C2971? 


00370 


JP 


NZ.1997H 


JSN ERROR IF NOT HEX CONV 


7F75 EB 


00380 


EX 


DE.HL 


PUT VALUE INDE 


7F76 CD807F 


00390 


CALL 


COW 


CONVERT TO STRING 


7F79 CD9310 


00100 


CALL 


1093H 


MARK END OF STRING 


7F7C C5 


00110 


PUSH 


EC 


FOR ROH TO DISCARD 


7F7DC33928 


00120 


JP 


2839H 


RETURN THRU STRt ROUTINE 


7F80 213011 


00130 COW 


LO 


HL.1130H 


ASCII CONV. WORKSPACE 


7F83 7A 


OOHO 


LD 


A,D 


CONVERT D REGISTER 


7F81 CDB87F 


00150 


CALL 


C0NV2 


TO ASCn (HEX) 


7F87 7B 


00160 


LD 


A,E 


CONVERT E REGISTER 


7F88F5 


00170 C0NV2 


PUSH 


AF 


SAVE BYTE TO CONVERT 


7FB9 0F 


00180 


RRCA 




ROTATE HIGH NYBBLE 


7FBA OF 


00190 


RRCA 




DOWN TO LOWER 


7F8B OF 


00500 


RRCA 




FOUR BITS 


7F8C OF 


00510 


RRCA 






7F8D CD917F 


00520 


CALL 


C0NV3 


CONVERT TO ASCII (HEX) 


7F90 Fl 


00530 


POP 


AF 


RESTORE BYTE TO CONV 


7F91 E60F 


00510 COM3 


AW) 


0FH 


USE LONER FOUR BITS ONLY 


7F93 C690 


00550 


ADD 


A,9«H 


THIS ROUTINE CONVERTS 


7F95 27 


90568 


DAA 




HEX VALUE IN RANGE 


7F96 CE10 


00570 


ADC 


A.10H 


00H-0FH TO ASCn CHAR 


7F98 27 


00580 


DAA 




0-9 ORA-F 


7F99 77 


00590 


LD 


(HL),A 


STORE RESULT ASCII CHAR 


7F9A 23 


00600 


INC 


HL 


BUHP WORKSPACE POINTER 


7F96C9 


09610 


RET 




(THIS ROUTINE RECURSIVE) 


7F9C 010201 


00620 NOTTKN 


LD 


BC.102H 


SET UP BINARY PARAMETERS 


7F9F FE12 


00630 


CP 


'B' 


IS IT BINARY? 


7FA1 280F 


00610 


JR 


Z,CONT 


'GO IF BINARY 


7FA3 011001 


00650 


LD 


BC.IliH 


SET UP HEX PARAMETERS 


7FA6FE18 


00660 


CP 


'H' 


IS IT HEXADECIMAL? 


7FA8 2808 


00670 


JR 


Z.CONT 


GO IF HEXADECIMAL 


7FAA 010803 


00680 


LD 


6Ci308H 


'SET UP XTAL PARAMETERS 


7FADFE1F 


00690 


CP 


'O' 


IS IT XTAL? 


7FAF 2801 


00700 


JR 


Z.CONT 


GO IF XTAL 


7FB1 2B 


00710 


DEC 


HL 


OCTAL ASSUMED 


7FB2 D7 


00720 COOT 


RST 


10H 


[GET NEXT CHARACTER 


7FB3 FE28 


00730 


CP 


'(' 


JIS CHARACTER A "("? 


7FB5 2018 


00710 


JR 


NZ.NOTEXP 


|GO IF NOT A "(" 


7FB7C5 


00750 


PUSH 


BC 


!SAVE COUNTER 8 MAX DIGIT 


7FB8CD2C25 


00760 


CALL 


252CH 


(EVALUATE EXPRESSION 


7FBB E3 


00770 


EX 


(SP),HL 


(SAVE BASIC BYTE POINTER 


7FBC E5 


00780 


PUSH 


HL 


!RE-SAVE CNTR 8 MAX DIGIT 


7FBD CD072A 


00790 


CALL 


2A07H 


•CLEAN UP WORKSPACE 


7FC0 CI 


00800 


POP 


BC 


(RESTORE CNTR 8 MAX DIGIT 


7FC1 5F 


00810 


LD 


E,A 


(GET STRING LENGTH IN E 


7FC2 23 


008Z0 


INC 


HL 


(GET ADDRESS OF FIRST 


7FC3 7E 


00830 


LD 


A,(HL) 


( CHARACTER OF STRING 


7FC123 


00810 


INC 


HL 


( AND STORE IN HL 


7FC5 66 


00850 


LD 


H,(HL) 


( REGISTERS 


7FC6 6F 


00860 


LD 


L,A 




7FC7EB 


00870 


EX 


DE,HL 


(HL=STRING LNGTH, DE=STRT 


7FC8 19 


00880 


ADD 


HL.DE 


(HL=STRING END + 1 


7FC9EE 


00890 


EX 


DE,HL 


(HL=START, DE=END + 1 


7FCA CDD27F 


00900 


CALL 


C0NT2 


(EVAL. STRING EXPRESSION 


7FCD El 


00910 


POP 


HL 


(RESTORE BASIC POINTER 


7FCEC9 


00920 


RET 




(NUMBER IN MATH BUFFER 


7FCF 11FTFF 


00930 NOTEXP 


LD 


D£,0FFFFH 


(CHECK TO NONHEX CHAR. 


7FD2 2B 


00910 CONT2 


DEC 


HL 


(BACK UP BASIC POINTER 


7FD3E5 


00950 


PUSH 


HL 


(SAVE BASIC POINTER 


7FD1 210000 


00960 


LD 


HL,0 


(ZERO MATH ACCUMULATOR 


7FD7 CD9A0A 


00970 


CALL 


0A9AH 


( 8 SET TYPE RG TO INT. 


7FDAE3 


00980 


EX 


<SP),HL 


(HL=BASIC POINTER, (SP)=0 



7FDB DOE1 


00990 NXTDGT 


POP 


IX 


(STORE * SO FAR IN IX 


7FDDD7 


01000 


RST 


10H 


(GET NEXT CHAR. (DIGIT) 


7FDE 08 


01010 


EX 


AF,AF' 


(SAVE CHARACTER & FLAGS 


7FDF DF 


01020 


RST 


18H 


(CHECK FOR END OF STRING 


7FE0 DO 


01030 


RET 


NC 


(RETURN IF END OF STRING 


7FE1 08 


01010 


EX 


AF,AF' 


(RESTORE CHAR. 8 FLAGS 


7FE2 3805 


01O50 


JR 


CDIGIT 


(IF CHAR. IN RANGE TO 9 


7FE1 FE11 


01060 


CP 


11H 


(IS CHAR BELOW ASCII "A"? 


7FE6 D8 


01070 


RET 


C 


(END OF NUMBER IF < "A" 


7FE7 D607 


01080 


SUB 


7 


(OFFSET FOR ALPHA CHARS. 


7FE9 D630 


01O90 DIGIT 


SUB 


30H 


!A=0 TO 15 FOR 0-9 OR A-F 


7FEB B9 


01100 


CP 


C 


}C=2, 8, OR 10H MAX DIGIT 


7FECD0 


OHIO 


RET 


NC 


(END OF NUMBER IF >= MAX. 


7FED DDE5 


01120 


PUSH 


IX 


(PUT * SO FAR ON STACK 


7FEF E3 


01130 


EX 


(SP),HL 


(HL=* SO FAR, <SP)=PNTR 


7FF0 C5 


OHIO 


PUSH 


BC 


(SAVE COUNTER 8 MAX DIGIT 


7FF1 29 


01150 TINES2 


ADD 


HL,HL 


(MULTIPLY HL TIMES 2 


7FF2 DAB207 


01160 


JP 


C7B2H 


(ERROR IF OVERFLOW >FFFFH 


7FF5 10FA 


01170 


DJNZ 


TBES2 


(REPEAT MULTIPLY 'TIL B=0 


7FF7 IF 


01180 


LD 


C,A 


(ADO VALUE OF LATEST 


7FF8 09 


01190 


ADD 


HL,BC 


( DIGIT FETCHED TO HL 


7FF? 222111 


01200 


LD 


(1121H),HL 


(CURRENT HL TO BUFFER 


7FFC CI 


01210 


POP 


BC 


(RESTORE CNTR 8 MAX DIGIT 


7FFD E3 


01220 


EX 


(SP),HL 


(HL=BASIC PNTR, (SP)=* 


7FFE 18DB 


01230 
01210 


JR 


NXTDGT 


(GET NEXT DIGIT (IF ANY) 


06CC 


01250 
01260 


END 


06CCH 


(USE 1A19H FOR MODEL III 
( OR 102DH FOR DOS 



00000 TOTAL ERRORS 

CONT 7FB2 
C0NV3 7F91 
NOTTKN 7F9C 



CONT2 7FD2 
DIGIT 7FE9 
NXTDGT 7FDB 



CONV 7F80 
NOTEXP 7FCF 
START 7F53 



CONV2 7F88 
NOTPK 7F70 
TIMES2 7FF1 



3^- If you 

have purchased my book and your copy does not have the 
"Hexadecimal Address Cross-Reference" on pages 122-125, you 
have a copy of the First printing. You may receive an upgrade free 
of charge by removing the last page from your book (the one with 
the "Afterword" on it - this page is replaced in the upgrade) and 
sending it AND a large (approximately 9" by 12"), self-addressed 
stamped envelope with 54 cents postage to me at TAS, 
Alternately, if you don't have the large envelope send 65 cents 
U.S. (or 80 cents Canadian) in coin and a pre-addressed mailing 
label and I'll supply the envelope and stamps. Please be patient, 
I'll probably wait until I've received several requests and then 
send them all out at once. 

Also, it has come to my attention that a few copies of my 
book that were of substandard quality were inadvertently shipped 
out. If you got a copy that has pages that are difficult to read 
(particularly if they are extra light at the top or bottom of the 
page), please feel free to return it for a replacement copy at no 
charge (we'll even pay the postage). On the other hand, if your 
copy has only one or two bad pages, you may elect to tell us which 
pages are bad and we'll send you replacements. If you do want to 
return your present copy for replacement, you may want to wait a 
couple of months just in case I discover any more bugs and make 
further revisions, but that's entirely up to you. However, I do 
apologize to anyone that got a bad copy (by the way, if you 
ordered my book and had to wait a while to get it, it was because 
we had some real quality-control problems for a while. We have 
had to scrap practically two entire print runs due to these 
problems! So, my apologies to anyone that had to wait - and a 
double apology if you had to wait and still got a bad copy!). 

WSSS&MJiS by R. Barto is excerpted from NYBBLER - 
If you use Newdos/80 and use the command "Format [dnl" you will 
notice that the disk will have a name of "NOTNAMED" and a date 
of "OO/OO/OO" [only if you did not set the system date when you 
booted the DOS -ed.l. You can change both of these with the 
command "PROT CdnD Name=Newname Date=newdate", but if you 
want to have a new default name, you can with the added feature 
of lowercase and punctuation. Using SUPERZAP, enter DFS, then 
SYSfc/SYS, then MOD 3D. You can change all bytes to byte 44 (8 
bytes) to whatever you want. Do not change the "B" at 3C, only 
3D-44 replacing the word "NOTNAMED". The entries must be in 
hexadecimal, and you can use the trial and error method if needed. 
I use "Bob'sfrnt" and love it. 



A ASO* ASSEMBLER IN MICROSOFT BASIC 
by Clarence Felong and Ken Brown 

Whrn the Radio Shack Color Computer was first announced it 
appeared to be a break-through in price/performance. It was 
based on the Motorola 680? CPU, had color graphics, Basic in ROM 
=r,J cost under $500' At about this same time we became very 
interested in graphics and animation (i.e. games). The Basic was 
good, faster then the TRS-80's, but not fast enough to handle 
real-time animation- Assembly language programming seemed the 
way to go, 

BACKGROUND 

A problem arose very quickly. Where do you get a 6809 
assembler to run on the Color Computer when the Advanced Basic 
and add-on RAM was not even available? What could the 4809 DO, 
anyway'' After many phone calls to Radio Shack, Motorola part 
distributors and local book stores, we obtained a book entitled, 
"MC6S09 PRELIMINARY PROGRAMMING MANUAL" from 
Motorola. Preliminary, indeed! The listings in the book came 
from a 4809 cross-assembler running on a 6800 based machine and 
many of the comments were hand written. This was interesting 
but did not solve our problem. 

Our pleas to Radio Shack for information on availability of 
an assembler went unanswered. South West Technical Products 
had a 6809 based computer running on the SS-50 bus but we were 
unwilling to spend several thousand dollars for a computer to 
write code for another computer. Spectral Associates had 
advertised an assembler but were "weeks" away from delivery at 
that time. It appeared that our options were to wait or write our 
own. We decided to write our own. 

The Color Computer did not then have the memory capacity to 
run a 6809 assembler written in Basic for itself on itself. We both 
owned disk-based TRS-80 Model I systems and this seemed the 
natural system to write code on. We could take the generated 
object code and input the data to the Color Computer through 
DATA statements which cauld be POKEd into the Color Computer's 
memory and then CSAVEd to cassette in machine executable form. 
Once we could execute 6S09 code on the Color Computer, we could 
write a serial transfer program on it and the TRS-80 Model I and 
send data through the RS232 ports. We decided to write the 
assembler in Basic for ease and speed of implementation. The 
following Basic program is the result. 

One of the primary requirements for an assembler is an 
editor which can be used to write and modify source code. Rather 
than writing our own, we decided to use Apparat's EDTASM editor 
(Miosys' EDAS can also be used). 6809 source code can be input, 
edited and saved to disk. The "built-in" Z80 assembler is not 
used, The format of files saved by EDAS or EDTASM is as 
follows! 



filename (NOT USED) 
line number - high bit set 
source code line text 

line number - high bit set 
source code line text 

line number - high bit set 
source code line text 



End Of File (EOF) is decimal 26 (HEX 1A or control-Z) 

RUNNING THE ASSEMBLER 

When the 6809 assembler Basic program is run, it prompts 
the user for a filename. The filename must contain any extension 
needed - i,e "PONG/ASM". This file must have been generated by 
EDTASM or EDAS or be in the same format as described above. 
The source code file is opened and source lines are displayed on 
the CRT as read. After the program is read into memory, the 
program asks if output should be directed to the printer. If a "Y" 
is input, the compiled object code and associated source line is 
output to the printer. NOTE - the input of source code and 
compilation takes a substantial amount of time for long source 
code files. After compilation, the user can opt for DATA 
statement output to the printer, This allows one to copy the 
generated code to the Color Computer as DATA statements. 



line 1 


characters 


1-7 


line 1 


characters 


8-12 


line 1 


characters 


13- 


line 2 


characters 


1-5 


line 2 


characters 


6- 


line 3..n 


character 


1-5 


... 


character 


6- 



Extremely long source code files should be broken into parts 
as the assembler may run out of RAM on source line input or 
compilation. The two sample 6809 assembler listings are meant to 
be linked together for execution. This may be done by first 
POKEing the PONG program into the Color Computer and then 
POKEing the SETRES program. The combined programs then can be- 
CSAVEd to tape. Later a Basic program can be RUN on the Colo 
Computer saving RAM for the assembled code by use of the 
CLEAR command. The binary code tape car, be CLOADed by the 
Basic program and CALLed by it. 

LIMITATIONS AND CHANGES FROM STANDARD 6S09 

Programming a -6809 assembler on the TRS-80 has forced 
some limitations and changes. Indirect addressing in the standard 
Motorola format is indicated by left and right square brackets. In 
this version, the exclamation point, "!" is used in place of either 
bracket. Also note that the standard 6809 assembler differs from 
a Z80 assembler in that comment fields after opcodes or labels 
need no "J" for delineation. An "»" in column 1 makes the entire 
line a comment. To assign a label to the current PC, the "#" is 
used - i.e. "START EGU *". Hex values begin with "»" - i.e. 
" ORG tEOOO", The Z80 pseudo op-code, DEFB (DB) corresponds 
to either FDB for byte definitions or FCC for string definitions - 
i.e. "STEP FDB *A1" and "MSG FCC /THIS IS A MESSAGE/", 
Generally speaking, 6809 code is PC relative, This means that 
generated code can be run anywhere in RAM without recompilation 
- no ORG statement is needed in assembler as presented. The 
two 6809 assembler source code files given as examples contain 
most of the different op-codes and pseudo op-codes used by our 
assembler. 

Both source code and object code are kept in RAM memory. 
Because of this constraint, source code is limited to 270 lines and 
object code is limited to 1000 bytes. These constants may be 
adjusted in line 130 of the Basic program. Microsoft Basic is 
VERY slow in "string garbage collection" and makes the assembler 
run correspondingly slow. Five minutes for a long source code file 
assembly is not unrealistic (have patience!). 

POSSIBLE CHANGES AND ENHANCEMENTS 

The assembler as written is designed for the TRS-80 Models 
I & III. It should port with very minor changes to other systems 
running Microsoft Basic (such as CP/M based machines). To 
handle larger programs, the program could be easily modified so 
that source code lines are not kept in RAM. The program can (and 
has!) been slightly changed to work under the Microsoft Basic 
Compiler. All DIMensioned statements should be changed to 
include numeric constants in the declaration rather than variables 
as in line 140, The CLEAR statement in lines 110 and 3780 should 
be deleted. The passing of variable values using POKE and PEEK 
in line 3780 is not necessary under a compiler. With the inclusion 
of more logic, macros could be supported. 

CONCLUDING REMARKS 

The assembler as listed here is freely given to the Public 
Domain. We ask only acknowledgement of the authors in any 
distribution of the program. The program has undergone much 
testing and use. We are not aware of any bugs, but some may 
exist. Included with this article are a couple of sample programs 
and listings used in the construction of a Pong-type game, these 
also may be used and reproduced freely. We are no longer using 
this program in any form and no modifications or enhancements 
will be forthcoming. 

BASIC PROGRAM LISTING 

NOTE'. This listing has been "formatted" for publication, so 
that where multiple statements (separated by colons) are found in 
a line, each new statement (and the colon preceding it) is placed 
on a separate line. Also, all continued lines (whether continued 
because of multiple statements on the line, or because the line 
was simply too long to fit the allotted column width) have been , 
indented five spaces. When typing the program into your 
computer, you need not try to "format" the program as shown - it 
has been printed this way for clarity. 

If you do not wish to type in the listings, they will be 
available on a TAS Public Domain Library disk, For further 
information on the TAS Public Domain Library, send a 
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' xxwxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxx 

CLEAR 11500 

DEFINT A-Z 
t DEFSNG P,T,S 

DIM AM(270),OBJU0 00),SRC*<270),LN*<270) 

MS=70 
5 DIM SL<MB), SR<MS), SS*<MS), SV(MS) 

ML=6 
j in*="!" 
: VD*="+~*/» " + IN* 

MN*<0>="/ABX/58,3/ADCA/137,8/ADCB/201,8/ADDA 
/ 139 , 8/ADDB/203 , 8/ADDD/ 1 95 , 9/ANDA/ 132 , 8/AND 
B/196,8/ANDCC/28,2/ASLA/72,3/ASLB/88,3/ASL/ 
104,10/ASRA/71,3/ASRB/87,3/ASR/103,10/BCC/3 
6,5/LBCC/4132,4" 

MN* ( 1 ) ="/BCS/37 , 5/LBCS/4133 , 4/BEG/39 , 5/LBEO/ 
4135 , 4/BGE/44 , 5/LBGE/4140 , 4/BGT/46, 5/LBGT/4 
142 , 4/BHI/34 , 5/LBHI/4130 , 4/BHS/36 , 5/LBHS/41 
32 , 4/BITA/133 , 8/BITB/197 , 8/BLE/47 , 5/LBLE/41 

MN*<2)="/BL0/37,5/LBL0/4133,4/BLS/35,5/LBLS/ 
4131,4/BLT/45,5/LBLT/4141,4/BMI/43,5/LBMI/4 
139 , 4/BNE/38 , 5/LBNE/41 34 , 4/BRA/32 , 5/LBRA/22 
, 4/BRN/33 , 5/LBRN/4129, 4/BSR/141 , 5/LBSR/Z3 , 4 
/BVC/40,5/LBVC/4136,4/BVS/41,5/LBVS/4137,4" 

MN* < 3 ) ="/CLRA/79 , 3/CLRB/95 , 3/CLR/ 111, 1 0/CMPA 
/ 129 , 8/CMPB/ 193 , 8/CMPD/4227 , 9/CMPS/4492 , 9/C 
MPU/4483 , 9/CMPX/140 , 9/CMPY/4236 , 9/C0MA/67 , 3 
/COMB/83 , 3/C0M/99 , 10/DAA/25 , 3/DECA/74 , 3/DEC 
B/90,3/DEC/106,10" 

MN*(4)="/EORA/136,8/EORB/200,8/EXG/30,6/INCA 
/76 , 3/INCB/V2 , 3/INC/l 08 , 1 0/ JMP/1 1 , 1 0/ JSR/ 1 
73,10/LDA/134,8/LDB/198,8/LDD/204,9/LDS/430 
2,9/LDU/206,9/LDX/142,9/LDY/4238,9/LEAS/50, 
1/LEAU/51,1/LEAX/48,1/LEAY/49,1" 

MN*<5)="/LSLA/72,3/LSLB/88,3/LSL/104,10/LSRA 
/68, 3/LSRB/84 , 3/LSR/l 00 , 1 O/MUL/61 , 3/NEGA/64 
,3/NEGB/80,3/NEG/96,10/NOP/18,3/ORA/138,8/O 
RB/202 , 8/0RCC/Z6 , 2/PSHS/52 , 7/PSHU/54 ,7" 

MN* ( 6 ) =" /PULS/53 , 7/PULU/55 , 7/R0LA/73 , 3/ROLB/ 
89,3/ROL/105,10/RORA/70,3/RORB/86,3/ROR/102 
,10/RTI/59,3/RTS/57,3/SBCA/130,8/SBCB/l?4,8 
/SEX/29, 3/STA/167, 10/STB/231 , 10/STD/237 ,10/ 
STS/4335, 10/STU/239, 10" 

MN*(7)="/STX/175,10/STY/4271,10/5UBA/128,8/S 
UBB/192.8/SUBD/131 , 9/SWI/63, 3/SWI2/4159 , 3/S 
WI3/4415,3/SYNC/19,3/TFR/31,6/TSTA/77,3/TST 
B/93,3/TST/109,10 

MN*<8>="/EOU/0,-l/FCC/0,~2/FCB/0,-3/FDB/0,-4 

DIM RP<11>,EM*<14) 
HX*=*"0123456789ABCDEF" 

t REG*="/D/0/X/l/Y/2/U/3/S/4/PC/5/A/8/B/9/C 

C/10/DP/11" 
FORT=0TOll 

: READ RF(T> 

i NEXT 

: REM REG PUSH/PULL ERUATES 



28 
290 



30 
310 
320 
330 
340 
350 
360 
3/0 
380 
39 
400 
410 

42 

430 
440 
450 
460 

470 

480 

490 



iOO 
)10 



DAIA6, 16,32,64,64, 
FQRT=QTQ3 

J READ H(T) 

J NEXT 

: DATA 
REM H< ) 
EM* < ) = 
EM*<1) 



128,0,0,2,4,1 ,0 



4096,256,16,1 
= POWERS Or 16 

"INVALID HEX < *HHHH ) 

"ILLEGAL LABEL" 



NUMBER" 



MO 



SI- 



SI. 



52 CP 



EM* ( 2 ) ="ILLEGAL INSTRUCTION" 
EM*<3)="MULTIPLY DEFINED SYMBOL" 
EM*(4)="IMFROPER STRING DELIMITER" 
EM* ( 5 ) ="UNDEFINED SYMBOL" 

EM*(6)="MALF0RMED ARITHMETIC EXPRESSION" 
EM* <7) -"OVERFLOW/UNDERFLOW" 
EM*(8)="MISSING LABEL" 
EM*(9)="EXTRANE0US DATA IGNORED" 
EM*< 10)=" SYNTAX ERROR (ILLEGAL ADDRESSING 

DE)" 
EM*(ll)="SOL)RCE 8 DESTINATION REGS INCOMPATI 

BLE" 
EM*<12)="INVALID REGISTER DESIGNATION" 
EM*(13)="ILLEGAL INDEX REGISTER" 
EM* < 14) -"ILLEGAL USE OF INDIRECT ADDRESSING" 
GOTO 3790 

! REM xxxxxxxx 
PASS=1 

{ 'xxxx PASS 1 xxxx 
PC = 

J SN==1 
FOR T-0 TO MS 

: SL<T)=~1 

; SRCT)=-1 

: ss*(T)=" n 

: NEXT 


SL.. + 1 

IF SL>LL THEN RETURN 
REM xxx END OF PASS 1 xxx 
1 

; LB*="" 

t AM(SL)=0 

I S*=SRC*(SL> 
530 IF LEN(S*)=0 THEN 510 
540 IF LEFT*(S*,1> = "*" THEN 510 

: REM SKIP COMMENT LINE 
550 GOSUB 1270 

J REM FIND NEXT FIELD 
560 IF CP=1 THEN GOSUB 1300 

t GOSUB 1270 

: IF LB*="" THEN T~l 

: GOSUB 3540 

! CF--=INSTR(S*," ") 

I GOSUB 1270 

! IF MID*(S*,CP,3)="E«U" THEN 510 
570 T=INSTR<CP,S*," ") 

J IF T=0 T=LEN(S*)+1 
580 T*="/ M + MID*(S*,CP,T-CP) + "/" 

: LT = 
590 T=INSTR(MN*(LT),T*> 

! IF T=0 THEN LT=LT+1 

: IF LT<9 THEN 590 

: REM FIND OPCODE MNEMONIC 
600 IF T=0 THEN T=2 

J GOSUB 3540 

: IF LB*="" THEN 510 ELSE TT=PC 

: GOSUB 1380 

: GOTO 510 

5 REM BAD INSTR==>PUT VALUE OF LABEL AS PC 

ANYWAY 
610 TT=T 

J REM SAVE PNTR TO START OF MNEMONIC STRING 
620 T=INSTR<T+1,MN*(LT) ,"/")+l 
630 CP=CP+T-TT-2 

! REM UPDATE CP TO POINT JUST PAST MNEMONIC 
64 OBJ ( PC ) ^VAL < MID* ( MN* < LT ) , T , 4 ) ) 
650 AM(SL)=VAL<MID*(MN*(LT> , INSTR( T ,MN* (LT ) ,",") 

+ 1,2) ) 
660 IF LB*<>"" AND AM<SLK>-1 THEN TT=PC 

! GOSUB 1380 

5 REM STO VALUE OF NEWLY DEFINED LABEL AS P 





C IF THIS ISN'T AN EQU STMT 


670 


OPC-PC 




: REM SAVE PC VALUE FOR THI 


6f)0 


IF AM<SL)<0 THEN ON -AM(SL) 




0,820 ELSE ON AM<SL) GOSUB 




910,910,910,970,1020,1070 


690 


GOTO 510 


700 


REM "EQU" SEiR 


710 


IF LB* = "" THEN T=8 



720 

730 
740 



750 
760 
770 
780 



790 PC 



800 
810 



820 
830 



840 
850 



860 
870 

880 

890 
900 



910 
920 



930 
940 



950 
960 



970 
980 



THIS INSTRUCTION 
GOSUB 700,770,80 
840,910,930,950, 



! GOSUB 3540 

5 RETURN 
GOSUB 1270 

: Et»*=LB* 

J REM POSITION TO START OF 3RD FIELD 
GOSUE: 2750 

: IF TT-1E38 THEN RETURN 
LB*=EQ* 

: GOSUB 1380 

: REM STORE VALUE OF LABEL 
GOSUB 3190 
RETURN 

REM "FCC" SBR 
T=INSTR<S*,"/"> 

: TT=INSTR<T+l,S*,"/"> 

: IF TT=0 OR T=0 THEN T=4 

t GOSUB 3540 

t AM(SL)=0 

J RETURN 

: REM FIND STRING LENGTH 
PC + TT - T - 1 

: RETURN 
REM "FCB" SBR 
GOSUB 1570 

J PC=PC+T 

: RETURN 
REM "FDB" SBR 
GOSUB 1570 

I PC=PC+T*2 

: RETURN 
REM "AM=1" SBR 
GOSUB 1270 

: IF MID*(S*,CP,1)=IN* THEN CP=CP+1 

: REM GET NEXT FIELD, SKIP INDIRECT CHAR 
THERE 
GOSUB 910 

S REM UPDATE PC FOR MOST INDEX CASES 
T*=MID*(S*,CP,1> 

: IF T*="A" OR T*="B 

$<S$,CP+1,1>=' 

J REM INDEX MODE 5,6, 
IF T*>="A" AND T*<>"Z" 

) <>0 THEN PC=PC+2 

i REM INDEX MODE 9, 13 
IF T*-"," THEN RETURN 

! REM INDEX MODE 0, 1, 2, 
T=VAL<MID*(S*,CF,6>) 

J IF T=0 THEN RETURN ELSE IF T<128 AND T>- 1 

29 THEN PC=PC+1 

! RETURN 

J ELSE PC=PC+2 

: RETURN 

: REM INDEX MODE 4,8, & 9 
REM "AM=2,5,6, & 7" SBR 

i THEN PC=PC+3 



IF 



OR T*="D" THEN IF MID 
THEN RETURN 
* 11 
OR INSTR(CP,S*,",PCR" 



OR 3 



IF 0BJ<PC)>25 

t RETURN 

: ELSE PC=PC+2 

! RETURN 
REM "AM=3" SBR 
IF 0BJ<PC)>255 
RETURN 

ELSE PC=PC+1 
RETURN 
REM "AM=4" 
IF OBJ (PC) 

! RETURN 

J ELSE PC=PC+3 

J RETURN 
REM "AM=8" SBR 
GOSUB 127 

I GOSUB 1160 



SBR 



THEN PC-PC+Z 



THEN PC=PC+4 



: IF T==0 THEN RETURN 

{ REM WAS EA 
990 IF MID* <S$,CP, !)="♦" THEN GOSUB 910 

I RETURN 

J REM IF IMMEDIATE ADDRESSING, INC PC ACCOR- 
DINGLY 
10 OBJ ( PC ) =OB J ( PC ) +32 

J REM CHANGE OBJECT CODE TO THAT FOR INDEX 

AM 
1010 GOSUB 840 

J RETURN 

: REM DO PROCESSING FOR INDEX AM 
1020 REM "AM=9" SBR 
1030 GOSUB 1270 

! GOSUB 1160 

J IF T=0 THEN RETURN 

{ REM EA 
1040 IF MID*(S*,CF,1)="*" THEN GOSUB 950 

: RETURN 

: REM IF IMMEDIATE ADDRESSING, INC PC FOR D 

EL-BYTE S OP-CODE 
1050 0BJ<PC)=0BJ(PC)+32 

: REM CHANGE OBJECT CODE FOR INDEX AM 
1060 GOSUB 840 

: RETURN 

: REM DO INDEX AM 
1070 REM AM=10 (INDEXED OR EXTENDED) PASS 1 
1080 GOSUB 1270 

: GOSUB 1210 

. IF T=1 THEN GosuB 84o 

5 RETURN 

: REM IF NOT EA, THEN INDEX ADDR 
1090 IF MID*(S*,CP,l)OIN* THEN OBJ<PC)=OBJ(PC) + 

16 

J REM IF INDIR EA, OP-CODE SAME AS INDEX EA 
1100 GOSUB 1110 

: RETURN 
1110 REM EXTENDED ADDRESSING PASS 1 <PC UPDATE) 
1120 REM ALTHO INDIRECT EXTENDED IS ACTUALLY IND 

EXED, IT IS HANDLED AS A SEPERATE SBR 
1130 GOSUB 940 

J REM UPDATE FOR SIZE OF OP-CODE 
1140 IF MID*(S$,CP,1)=IN* THEN PC=PC+3 ELSE PC=P 

C+2 
1150 RETURN 
1160 REM FOR PASS 1, AM=8,9 

: SEE IF EXTENDED ADDRESSING, UPDATE OBJ 8 

PC IF SO 
1170 'OUTPUT! T=0 IF EA, T=l IF NOT 
1180 GOSUB 1210 

: IF T=l THEN RETURN 

: REM NOT EA 
1190 IF MID*(S*,CP,1)=IN* THEN OBJ(PC)=OBJ( PO+3 

2 ELSE 0BJ(PC)=0BJ(PC)+48 

5 REM UPDATE OP-CODE FOR INDIRECT OR REGULA 

R EA 
1200 GOSUB 1110 

J T = 

5 RETURN 
1210 REM SEE IF EXTENDED INDEXING SBR 
1220 'OUTPUT: T-0 IF EXTENDED, T=l IF NOT EXTEND 

ED 
1230 IF MID»(S*,CP,1)="#" THEN T=l 

S RETURN 
1240 TO=CP 

: CP=INSTR(CP,S*," ") 

'. IF CP=0 THEN CP=LEN<S*) 

I REM FIND END OF OPERAND FIELD 
1250 T=INSTR(MID*(S*,TQ,CP-TQ+1) ,",") 

: IF TOO THEN T = l 

J REM IF NOT INDEXED MODE, THEN IS EXTENDED 

1260 CP=TQ 

: RETURN 
1270 REM "FIND NEXT FIELD" SBR 
1280 IF CP=LEN(S«) THEN RETURN 
1290 IF MID*(S*,CP,1)=" " THEN CP=CP+1 

: GOTO 1280 

5 ELSE RETURN 
130 REM "EXTRACT LABEL" SBR — CP POINTS TO START 



8 



1310 
1320 



1330 
1340 



1350 
1360 

1370 

1380 
1390 
1400 
1410 



1420 



1430 



1440 



1450 
1460 
1470 
1480 

1490 



1S00 



1510 
1520 
1530 

1540 
1550 



1560 
1570 
1580 
1590 



OF LABEL 1A0 ° 

LB*="" 

T*=MID*(S*,CP,1> 1610 

: IF T4<"A" OR T*>"Z" THEN RETURN 
: REM NOT A LABEL 

TT=CF . 1620 

: REM FIND LENGTH OF LABEL IN TT 1630 

T=INSTR(VD*,MID*<S*,TT,1>) 1640 

S IF T=0 THEN TT=TT+1 1650 

. IF TT<=LEN(S*) THEN 1340 1660 

TT=TT-CP 

LB*=MID*(S*,CP,TT) 1670 

J IF TT>ML THEN LB*=LEFT*<LB* ,ML> 1680 

CP=CP+TT 

! RETURN 169 ° 

REM "ADD NEW LABEL SBR" 1700 

'INPUT? LB* — LABEL 1710 

TT— VALUE OF LABEL 1720 

T*=LB* 
: GOSUB 1620 
: IF T*<>"" THEN T=3 

; GOSUB 3540 1730 

t RETURN 17 40 

J REM FIND SPOT FOR LABEL IN SYM TBL— EXIT 1750 
IF MD ERROR 1760 

IF TT>65535 OR TK-65536 THEN T=7 

: GOSUB 3540 1770 

: RETURN 

IF LB*=-'SS$(LT) THEN SR(LT)=SN ELSE SL<LT>=S 
N 1780 

: REM ATTACH NODE TO PARENT ! 

SS*(SN)=LB* 5 

J SV<SN)=TT ' 

i SN=SN+1 '• 

t RETURN : 

REM "GET LABEL OR NUMBER VALUE" SBR 1790 T 

'INPUT: CP--PNTS TO START OF LABEL/NUMBER t 

'OUTPUT: CP--PNTS TO START OF DELIMITER J 

T— VALUE OF LABEL/NUMBER— 1E38 IF 
NOT DEFINED 1800 

IF MID*<S*,CP,1>="*" THEN T=*OPC 1810 

J CP=CP+i 

• RETURN 

1 REM IF "*" PSEUDO-OP THEN RETURN VALUE OF 1820 

PC FOR THIS INSTR 
GOSUB 1300 

J IF LB»<>"" THEN T*=LB* 1830 

t GOSUB 1620 

! IF T*="" THEN T=5 1840 

: GOSUB 3540 

: T=1E38 1850 

: RETURN 

: ELSE T=SV(LT) i860 

: RETURN 

: REM IF LABEL, FIND LABEL & RET VALUE 

T*=MID*<S*,CP,1> 1870 

; IF T<= n_" THEN T*=MID*(S*,CP+1,1) 

IF T*="$" THEN GOSUB 1730 

t RETURN 

IF T*<"0" OR T*>"9" THEN T=6 

: GOSUB 3540 

5 T=1E3B 188 ° 

J RETURN 

! REM INVALID IF NOT LABEL OR NUMBER! 

t=val ( mid* (6* , cp , 6 ) ) 

: cf'=cp+i 

: rem get value of label, skip cp over poss 

ible sign char 

T*=MID*(S*,CP,1> 

t IF T*> = "0" AND T*<= ,, 9" THEN CP^CP+1 

J GOTO 1550 1890 

: REM RE~ADJUST CP TO PNT TO 1ST CHAR AFTER 

DIGIT 
RETURN 190 

REM "COUNT COMMAS" SBR 
'OUTPUT: T— -* OF COMMAS + 1 

T=0 1910 

5 GOSUB 1270 
*. LT=INSTR(CP,5»," ") 
: IF LT=0 THEN LT=LEN(S*> 1920 



ELSE T=SL(LT> 



FOR TT=CP TO LT 

: IF MIE)*<S*,TT,1>=", H THEN T=T+1 

NEXT 

: T=T+1 

: RETURN 

rem "find label in sym table" sbr 

'input: t*— label being searched for 

'output: 

' label found: t*~-label as input 

LT— POINTER TO NODE WITH L 
ABEL 

' LABEL NOT FOUND: T*— NULL 

LT— POINTER TO WOULD-B 
E PARENT NODE 
LT=0 

IF T*=SS*(LT) THEN RETURN 
IF T*<SS*<LT) THEN T=SR(LT) 
IF T=-l THEN T*="" 

: RETURN 

: ELSE LT=T 

5 GOTO 1700 

REM "EVALUATE '*HHHH' SBR" 

'INPUT: CP—POINTS TO * WITHIN STRING 

'OUTPUT: CP—POINTS JUST PAST LAST 'H' 

T— *HHHH VALUE IF NO ERROR, 1E38 I 
F ERROR 

TT = 

: T=0 

; cp=cp+i 

TG=INSTR ( HX* , MID* < S* , CP , 1 > > 

J IF TQ = THEN CP=4~TT 

: T=0 

: GOSUB 3540 

5 T=1E38 

: RETURN 

T+<TQ-1)*H<TT) 

: cp=cp+i 

• TT=TT+1 

: IF TT<4 THEN 1780 ELSE RETURN 

REM **** PASS 2 **** 

PASS = 2 

: PC-0 

: sl=o 

SL=SL+1 

: IF SL>LL THEN RETURN 

; REM *** END OF PASS 2 *** 

S*=SRC*(SL> 

: cp=i 

if len(s*)=0 then gosub 3580 

t GOTO 1820 

IF AM<SL)=0 THEN GOSUB 3580 

: GOTO 1820 

T = 

: IF MID* (S*, 1,1)=" 

: REM T=* OF FIELD 

IF MID*(S*,CP,1>=" 

: GOTO 1870 

: ELSE T=T+1 

; IF T<3 THEN CP=INSTR(CP,S*, " " ) 

: IF CPO0 THEN 1870 

: REM FIND START OF 3RD FIELD 

OFC==PC 

: IF AM(SL)>0 THEN TT=OBJ<PC> 

4 , IF TT>255 THEN T=2 

; GOSUB 2870 

: OBJ(PC)=T 

'. OBJ(PC+l)=TT 

{ PC=PC+2 

: ELSE PC=PC+1 

t REM CONVERT 2-BYTE OP-CODE TO 2 BYTES 

IF AM<SL)<0 THEN ON -AM(SL) GOSUB 3210,3250 

,3290,3340 ELSE ON AM(SL) GOSUB 1940,2340,2 

390,2410,2450,2480,2540,2610,2650,2730 

IF OPC=PC THEN 1930 ELSE TT=OPC 

: GOSUB 2980 

: REM O/P PC 

IF PC--OPC > 5 THEN TT=0PC+5 ELSE TT=PC 

I REM SET LIMIT OF * OF BYTES OF OBJECT COD 

E TO O/P 

T==OBJ<OPC) 



" THEN T=l 



THEN CP=CP+1 



1930 

194 
1950 



1960 
1970 
1980 



1990 

2000 

Z010 

2020 

2030 
2010 



2050 
2060 



2070 
2080 
2090 
2100 
2110 



2120 



2130 
2110 



2150 
2160 



2170 



t GOSUB 3060 2180 

5 GOSUB 3010 

: opc=opc;+i 219 ° 

j if opc<tt then 1920 

x rem o/p up to 5 bytes of object code from 22 
this instruction 

GOSUE 3580 

J GOTO 1820 

REM "PASS 2--AM=l" 221 ° 

IF MID*(S»,CP,1)=IN* THEN GOSUB 3460 

: IF T=0 THEN RETURN 

i REM THIS MEANS IF INDIRECT, MAY BE INDIR 

ECT EXTENDED, WHICH IS ACTUALLY INDEXED, SO 2220 

IT'S OK HERE! ! ! ! 
BPOPC 

J REM SAVE SPOT FOR POST-BYTE 

PC=PC+1 2230 

: REM SKIP SPOT FOR POST-BYTE 
RR=0 
: IM=0 
♦ PB~i*'8 
; IF MID»<S*,CP,1)=IN* THEN IN=1 2210 

: CF-cp+i 

5 ELSE IN=0 2250 

T*=MID*<S*,CP,2) 2260 

: IF T*="A," THEN IM=6 

: GOTO 2150 

IF T*="B," THEN IM=5 

: GOTO 2150 2270 

IF T*="D," THEN IM<=11 2280 

*. GOTO 2150 

IF LEFT*(T*,1>="," THEN 2170 2290 

X REM IM=0-3 

REM IM=4,B,9, OR 13 2300 

GOSUB 2750 

t IF T=1E38 THEN PB=0 

: GOTO 2280 

IO=T 

IF MID*<S*,CP,1) <> "," THEN T=10 

X GOSUB 3540 2310 

t PB=0 

•. GOTO Z280 2320 

CP=CP+1 2330 

J IF MID*(S*,CP,3)="PCR" THEN 2130 

REM IM=4,8, OR 9 

• 
» 

GOSUB 3390 2340 

: IF RR>3 THEN 2280 2350 

IF 10=0 THEN IM=4 

: GOTO 2280 

IF I0<128 AND I0>-129 THEN IM=8 

: T=l 

I TT=IO 2360 

: GOSUB 2870 

: OBJ(PC)=T 

: pc=pc+i 

: GOTO 2280 2370 

IM=9 

1 T=2 

! TT=IO 2380 

! GOSUB 2870 

: OBJ(PC)=T 

X OBJ<PC+l)=TT 2390 

: PC=PC+2 2400 

: GOTO 2280 

RfM IM=13 2410 

IM=13 2420 

; CP=CP+3 

: PC-PC+2 

! 1=2 2430 

: TT=IO-PC 

X GOSUB 2870 

: 0BJ<PC-2)=T 

: OBJ(PC-l)=TT 2440 

J GOTO 2280 

REM IM=5,6,li 2450 

CP=CP+2 2460 

t GOSUB 339 

X GOTO 2280 

REM IM=0-3 2470 



OR T*=IN* THEN 2280 
'+" (IM=0) 



AND T*OIN* THEN T= 



CP=CP+1 

: IF MID*<S*,CP,1)="-" THEN 2250 

GOSUB 3390 

: IF RR>3 THEN 2280 

IF MID*<S*,CP,1X>" + " THEN T = 10 

J GOSUB 3540 

! PB=0 

t GOTO 2280 

CP-CP+1 

I T*=MID*<S*,CP,1> 

• if t*="" OR T*=" 

! REM DONE IF ONLY ONE 

IF T*<>"+" THEN T=10 

*. GOSUB 3540 

J PB=0 

; GOTO 2280 

CP=CP+1 

; T*=MID*<S*,CP,1) 

J IF T*<>"" AND T*<>" ' 

9 

J GOSUB 3540 

IM=1 

: GOTO 2280 

REM IM=2-3 

CP-CP+1 

', IM=2 

t IF MID*(S*,CP,1) = "-" THEN IM<=3 

J CP-CP+1 

GOSUB 3390 

REM SBR TO STORE POST-BYTE FOR INDEXED ADDR 

ESSING 

IF PB=0 THEN OBJ(BPC)=PB 

J RETURN 

IF IN=1 THEN IF IM=0 OR IM=2 OR MID*(S*,CP, 

DOIN* THEN T=14 

; GOSUB 3540 

! OBJ(BPC)=0 

J RETURN 

X ELSE CP=CP+1 

GOSUB 3190 

: REM CK FOR EXTRANEOUS DATA 

PB=PB OR IN*16 

PB=PB OR RR*32 

J PB=PB OR IM 

J OBJ(BPC)=PB 

: RETURN 

REM "PASS 2, AM=2" SBR 

POPC+1 

: IF MID*(S*,CP,1)<>"#" THEN T°=10 

J GOSUB 3540 

: T=0 

: GOTO 2380 

CP=CP+1 

! GOSUB 2750 

: IF TT=1E38 THEN T=0 

: GOTO 2380 

T = l 

: GOSUB 2870 

! REM CONVERT TO 1 "HEX" BYTE 

OBJ(PC-l)=T 

! GOSUB 3190 

t RETURN 

REM "PASS 2--AM=3" SBR 

RETURN 

5 REM NOTHING TO DO! 

REM "PASS 2— AM=4" SBR 

PC=PC+2 

5 GOSUB 2750 

: IF TT=1E38 THEN TT=0 ELSE TT=TT-PC 

T=2 

: GOSUB 2870 

: 0BJ<PC-2)=T 

; OBJ(PC-l)=TT 

GOSUB 3190 

X RETURN 

REM "PASS 2— AM=5" SBR 

PC=PC+1 

: GOSUB 2750 

t IF TT=1E38 THEN TT=0 ELSE TT=TT-PC 

T = l 
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2480 
2490 



2500 



2510 



2520 



V THEN T=10 



2530 

2540 
2550 

2560 



570 



2580 
2590 

?600 

2610 
2620 

2630 



2640 
2650 
2660 
2670 



2680 
2690 



: GOSUB 2870 

} OBJ(PC-l)=T 

: GOSUEi 3190 

: RETURN 

REM "PASS 2— AM=6" SBR 

PC=PC+1 

t PB=0 

J GOSUB 3100 

5 IF T>11 THEN 2530 

IF MIO*(S*,CP,l> 

: GOSUB 3540 

5 GOTO 2530 

PB=T 

: cf-cp+i 

: GOSUB 310 

: IF T>11 THEN F'B=0 

: GOTO 2530 

GOSUB 3190 

J IF (PB>5 AND T<6) OR (PB<6 AND T>5) THEN 

PB=0 

} T=ll 

! GOSUB 3540 

: ELSE PB=PB+16*T 

J REM REGS MUST BE = LEN 

OBJ(PC-l>=PB 

: RETURN 

REM "PASS 2— -AM=7" SBR 

PC=PC+1 

: PB=0 

GOSUB 3100 

: IF T>11 THEN STOPPB=0 

: GOTO 2600 

IF <T=3 AND 0BJ<PC-2)>53) OR (T=4 AND OBJ(P 

C-2X54) THEN PB=0 

: T=12 

J GOSUB 3540 

5 GOTO 2600 

: REM CK THAT U/S REGS OK 

PB-PB OR RP(T> 

IF MID*(S*,CP,1>="," CP=CP+1 

5 GOTO 2560 ELSE GOSUB 3190 

OBJ(PC-l)=PB 

: RETURN 

REM "PASS 2~AM=8" SBR 

IF MID*(S$,CP,1)="*" THEN GOSUB 2340 

: RETURN 

GOSUB 3460 

: IF T=l THEN GOSUB 1940 

5 REM IF NOT EA, THEN INDEXED 

RETURN 



REM "PA£ 



■AM=9" SBR 



IF MID*(S*,CP,1)="*" THEN 2690 

GOSUB 3460 

; if t=1 THEN 1940 

i REM IF NOT EA, THEN INDEXED 

RETURN 

REM AM--2-BYTE IMMEDIATE ADDRESSING 



270 POPC+2 

J CP'CP+1 

: GOSUB 2750 

: IF TT=1£38 THEN TT=0 
2710 T=2 

: GOSUB 2870 
2720 0BJ(PC-2)=T 

J OBJ(PC-l)=TT 

: GOSUB 3190 
f ! RETURN 
2730* REM "PASS 2 — AM = 10 (INDEXED OR EXTENDED)" S 

BR 
2740 GOSUB 3460 

J IF T = THEN RETURN ELSE GOSUB 1940 

5 RETURN 

! REM IF NOT EXTENDED, THEN INDEXED 
2750 REM "EVALUATE EXPRESSION" SUBROUTINE 
2760 'INPUT! CP— POINTS TO START OF EXPRESSION 
>77 'OUTPUT: CP — POINTS TO EXPRESSION DELIMITER 

IF NO ERROR 
2780 ' TT — EXPRESSION VALUE 
2790 ' — 1E38 IF ERROR 



280 
2810 



?82 



2830 



284 



285 



2860 
287 

2880 
2890 
290 
2910 
2.92 
2930 



2940 



2950 



2960 
2970 



2980 
2990 
3000 



3010 

3020 
3030 
3040 

3050 
3060 

3070 
3080 
3090 



3100 
3110 



GOSUB 145 

t IF T=1E38 THEN TT=T 

J RETURN 

! ELSE TQ=T 

: REM GET VALUE OF 1ST (ONLY?) OPERAND OF E 

XPRESSION 

OP*=MID*(S*,CP,l> 

IF INSTR(VD*,OP*>=0 AND 0P*O"" (HEN T = A 

GOSUB 3540 

TT=1E3B 

RETURN 

REM IF OPERATOR INVALID, RETURN 
IF INSTRC" ,"+IN*,OP*)C OR OP*-"" THEN TT 
=TQ 

J RETURN 

: REM DONE IF "OPERATOR" IS A VALID EXPRESS 
ION DELIMITER 
CP-CP+1 

GOSUB 1450 

IF T=1E38 THEN TT=T 

RETURN 

IF OP*="+" THEN TQ=TQ+T ELSE IF OP*="-" THE 
N TQ=TQ-T ELSE IF OP*="x" THEN TQ=TQ*T ELSE 

TQ=TQ/T 
GOTO 2820 

REM CONVERT 1 DECIMAL NUMBER TO 1 OR 2 "HEX 
" BYTES <>0> 
'INPUT: T-# OF BYTES 

TT=NUMBER 
'OUTPUT! T=1ST BYTE 

TT=2ND BYTE (IF NEEDED) 
IF T=2 THEN 2950 

IF TT>255 OR TK--256 OR ((TT> 127 OR TT<>12 
8) AND AM(SL)=5) THEN T=7 
: GOSUB 3540 
t T=0 
: RETURN 

IF TT<0 THEN T=TT+256 
: RETURN 
t ELSE T=TT 
: RETURN 

IF TT>65535 OR TK.-65536 THEN T~7 
: GOSUB 3540 
: T=0 
: TT=0 
: RETURN 

IF TT<0 THEN TT=TT+65536 
T=INT(TT/256) 
t TT=TT-T*256 
: RETURN 

REM OUTPUT 2 HEX BYTES, FOLLOHED BY A SPACE 
'INPUT: TT — NUMBER IN DECIMAL FORM (EG, PC) 
T=2 

: GOSUB 2870 
J GOSUB 3060 
J GOSUB 3010 
{ T=TT 

: GOSUB 3060 
: GOSUB 3010 
, T$= „ ., 

: GOSUB 3010 

5 RETURN 

REM PRINT T* ON CRT AND POSSIBLY LP (IF PF= 

1) 

'INPUT: T*— STRING TO PRINT 

PF — 1 IF O/P TO PRINTER ENABLED 
PRINT T*5 

: IF PF=1 THEN LPRINT T* J 
RETURN 

REM CONVERT "HEX" (>0) BYTE TO ASCII HEX ST 
RING 

'INPUT: T— "HEX" BYTE 
'OUTPUT: T« — HEX ASCII BYTE 

T*=MID*(HX*,INT(T/16>+1,1) + MID*(HX«,T-(IN 
T(T/16>*16)+1,1) 
J RETURN 

REM SBR TO GET REGISTER FROM INPUT STRING 
'INPUT: CP— POINTS TO A REGISTER IN I/P ST 
RING 
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31.20 

3130 
3110 
3150 

3160 



3170 



3180 



3190 



3200 

3210 
3220 



32.30 



32-10 



3250 
32.60 
3270 



3280 
3290 
3300 

3310 



3320 



3330 



3310 
3350 

3360 



3370 



3380 



3390 
3100 
3110 



'OUTPUT: CP— POINTS TO CHAR AFTER REGISTER 
IF ONE FOUND 

T — THE * DF REGISTER, IF ONE FOUND 
■•-- >11 IF NO VALID REGISTER FOUND 
IF LEN(S*)-CP THEN 3170 
J REM CAN'T BE A 2 -CHAR REG 
T4="/" + MTD*(S$,CP,2> + "/" 
'. T=INSTR<R£G*,T*) 
: IF TOO THEN LT=2 
: GOTO 3180 

: REM LOOK FOR 2-CHAR REG 1ST 
T*="/" + MID$(S$,CP,1> +"/" 
: T=INSTR(REG*,T*> 
! IF T=0 THEN T=1Z 
J GOSUB 3510 
: RETURN 
J ELSE L.T=1 

T=VAL(MID*(REG*,T+LT+2,LT) > 
J CP=CP+LT 
: RETURN 

T*=MID*(S*,CP,1) 

: IF T*<>"" AND T*<>" " THEN T=9 
: GOSUB 3510 
RETURN 

: REM CHECK FOR EXTRANEOUS DATA SBR 
REM "PASS 2 — EQU" SBR 
CP-1 

: gosub 1300 

t IF LB*="" THEN T$="???? " 

5 GOSUB 3010 

: RETURN 

T*=LB* 

: GOSUB 1620 

J IF T*="" THEN T*="???? " 

: GOSUB 3010 

: RETURN 

TT=SV(LT) 

J GOSUB 2980 

: RETURN 

REM "PASS 2— FCC" SBR 

CP=CP+1 

T*=MID*<S*,CP,1> 

! IF T»<>"/" THEN OBJ(PC)=ASC<T*) 

5 CP=CP+1 

! GOTO 3270 

RETURN 

REM "PASS 2--FCB" SBR 

GOSUB 2750 

; ifr TT = 1E38 THEN TT = 

T=l 

t GOSUB 2870 

: REM CONVERT TO A 1-BYTE NUMBER 

OEJ(PC)=T 

; F'C=PC+1 

J T$=MID*(S*,CP,1> 

! IF T$<>" ," THEN GOSUB 3190 

: RETURN 

I REM DONE AFTER LAST COMMA FOLLOWED BY A * 

CP=CP+1 

: IF MID*(S*,CP,1)="," THEN 3320 

: ELSE 330 

REM "PASS 2~-FDB" SBR 

GOSUB 2750 

: IF TT-1E38 THEN TT=0 

T=2 

: GOSUB 2870 

: REM CONVERT TO A 2-BYTE NUMBER 

OBJ(PC)=T 

: OBJ(PC+i)=TT 

: PC-PC+Z 

! T*=MID*(S*,CP,1) 

: IF T*<>" ," THEN GOSUB 3190 

: RETURN 

CP=CP+1 

: IF MID$(S$,CP,1)="," THEN 3370 

! ELSE 3350 

REM "GET INDEX REG" SBR 

'INPUT5 CP — POINTS TO "R" 

'OUTPUT! CP— POINTS TO JUST AFTER "R" 



AND T*; 



■ + " AND T*-< 
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3120 ' RR--0-3 IF VALID REG, >3 IF r NOT. 

3130 GOSUB 310 

: RR=T-1 

: IF RR<0 OR RR>3 THEN STOP 

: T = 13 

i R=13 

! GOSUB 3510 

: pb=o 

! RETURN 
3110 T*=MID*(S$,CP,1) 

; IF T*<>"" AND T*<> 

>IN* THEN T=9 

: GOSUB 3510 
3150 RETURN 

3160 REM "PASS 2 EXTENDED" SBR 

3170 'OUTPUT: T=l IF NOT EXTENDED ADDRESSING 
3180 ' T=0 IF EA. IF EA , PC, OBJ (PC) UPD 

ATED 
3190 GOSUB 1210 

J IF T = l THEN RETURN 
350 IF MID*(S*,CP,1)=IN* THEN IN=1 

: CP=CP+1 

: ELSE IN=0 
3510 GOSUB 2750 

: IF TT=1E38 THEN TT=0 
3520 IF IN=1 THEN 0BJ(PC)=159 

1 IF MID*<S*,CP,l)OIN* THEN 1 = 11 
J GOSUB 3510 

J REM IF INDIRECT ADDRESSING, ACTUALLY IS I 
NDEXED ADDRESSING, SO STORE POSTBYTE = #9F 
3530 T=2 

: GOSUB 2870 
: OBJ<PC)=T 
: OBJ<PC+l)=TT 

: pc=pc+2 
: t=o 

: RETURN 
3510 PRINT M PASS"PASS"ERROR 

: "jEM*m 
3550 if pf=1 then lprint "pass"pass"error 

: ";em*<t) 
3560 if pa5s=1 then gosub 3580 

3570 RETURN 

3580 REM PRINT LINE NUMBER & SOURCE LINE SBR 

3590 PRINT TAB < 16) LN*<SL)J 

: IF PF=1 THEN LPRINT TAB< 16) . LN* <SL) } 
360 PRINT TAB (22) S* 

: IF PF=1 THEN LPRINT TAB (22) S* 
3610 RETURN 
3620 PRINT 

: PRINT'TURRENT TIME AND DATE ARE 

*, "TIME* 
3630 PRINT 

t INPUT"DO YOU WANT LINE PRINTER OUTPUT?" J T 

4 

t IF T*-"Y" THEN PF-1 ELSE PF=0 
3610 IF PF=1 THEN LPRINT"6809 ASSEMBLER 

ION 1.2 

% 

t LPRINT" " 

*. LPRINT " " 
3650 GOSUB 170 

: GOSUB 1800 
3660 PRINT"DUMP OF LABEL TABLE FOLLOWS 

♦ II 

* 

3670 FORT=lTOSN~l 

:printss*(T) ,sv(t> 
:next 

3680 CLS 

: INPUT"DO YOU WANT TO 



(1) SEND OBJECT CODE TO PRINTER 

(2) RETURN TO EDTASM 

(3) RETURN TO DOS 
(1) RE- ASSEMBLE 

"JT 

3690 IF T<1 OR T>1 THEN 3680 ELSE IF T=1 THEN 36 
20 



- VERS 
"JTIME 



370 IF TOl THEN 3780 

3710 INPUT"STARTING LINE NUMBER?"}LN 

;z=o 
3720 l.printstr*(ln>}" data" }str*<pc> }" 
:rem==>size of object code- 

^730 LN=LN+10 

'40 lprint str*(ln)j" data" }str*<0bj(z> ) j 
:t=o 

3750 Z=Z+1 

JIFZ>PC-1THEN3770 ELSE LPRINT" ," ;mID*<STR*< 

0BJ<Z)),2>; 
3760 T=T+1 

:iFT<7THEN3750ELSE 

: LPRINT 

SZ=Z*1 

5IFZOPC-1THEN3730 
3770 GOTO3680 
3780 POKE -200, T 

1 CLEAR SO 

i T-PEEK(-ZOO) 

! IF T*2 THEN CMD"EDTASM" ELSE CMD"S" 
3790 CLS 
3800 1=1 

3810 INPUT"ENTER FILE TO BE INPUT "JFI* 
3820 OPEN"I",i f FI* 
3830 LINEINPUT*1,B* 
3840 IP*«RIGHT*<B*,LEN<B*>-7) 
3850 GOSUB 3940 
3860 PRINTLN*<I>5" "JSR*<D 
3870 1=1+1 

3880 LINEINPUT#1,IP* 
3890 IF EOF(l) OR LEFT*<IP*, 1 >=CHR*<26> THEN 393 


3900 GOSUB 3940 
3910 PRINTLN»<I>r" "JSR*<I> 
3920 GOTO 3870 
3930 LL=I-1 

: GOTO 3620 
3940 FOR J=l TO S 

3950 H0*»H0*+CHR*<ASC<MID*(IP*,J,i))-i2B> 
'60 NEXT 
/70 HO*0 

SSP=0 
3980 LN*<I>»HO* 
3990 HO*-"" 

4000 SR* ( I ) "RIGHT* < IP* » LEN < IP* ) -6 ) 
4010 H0=INSTR(SR*(I>,CHR*(9)) 
4020 IF HO-O THEN 4060 
4030 SP=HO-( INT < HO/8 )*8> 

:SP=8-SP 
4040 SR*<I>«LEFT*<SR*<I>,HO-l)+STRING*<SP," ")+R 

IGHT*<SR*<I),LEN<SR*<I>>-HO> 
4050 GOTO 4010 
4060 RETURN 



VARIABLE USAGE FOR 6809 ASSEMBLER 

AM) ADDRESS NODES OF OPCODES - MEDIATE, INDIRECT, ETC, 

B* STRING FOR INPUT LINE FROM SOURCE FILE 

BPC TEMPORARY PROGRAM COUNTER STORAGE - USED W POST BYTE 

CP CHARACTER FOOTER USED WHEN PARSING INPUT SOURCE LINE 

EM»0 ERROR MESSAGE STRING ARRAY 

ED* TEHPORARY HOLD FOR LABELS 

Ftt FILE NANE FOR SOURCE INPUT 

HO ARRAY OF POWERS OF 16 FOR DECIMAL TO HEX CONVERSIONS 

HO USED FOR POSITION FORMATTING FOR OBJECT CODE AND SYMBOL TABLE 

HO* STRING USED FOR STRING FORMATTING (SEE HO) 

HX* HEX CHARACTERS STRING USED FOR DISPLAYING HEX VALUES 

I INDEX FOR NUMBER OF INPUT SOURCE CODE LINES 

IK INPUT MODE (TYPE OF ADDRESSING) USED FOR BYTE COUNT, ETC, 

IN INDIRECT ADDRESSING NODE FLAG 

IN* INDIRECT ADDRESSING NODE CHARACTER - ON TR8-80, "!" 

10 TEMPORARY HOLD FOR TYPE (T) OF OP-CODE 

<— °* INPUT STRING FOR SOURCE CODE LINE NUMBER AS 8ET BY EDTA8M OR EDA8 
TEMPORARY LOOP COUNTER 

urt STRING REPRESENTATION OF PROGRAM LABEL 

LL LINE COUNT LIMIT (NUMBER OF INPUT LINES) 

LN START LINE NUMBER FOR DATA STATEMENT OUTPUT 

LN»0 LINE NUMBER STRING ARRAY USED FOR A88EHBLY LISTINGS 



LT POINTER TO SYMBOL TABLE NODE FOR GIVEN LABEL 

ML MAXIMUM LABEL LENGTH (6 ON TRS-80) 

mi) OF-COOE MNEMONIC STRING ARRAY TABU 

MS MAXIMUM SIZE FOR FOR SYMBOL TABLE NODE ARRAYS 

DBJO ARRAY FOR HOLDING GENERATED OBJECT CODE 

OPC TEMPORARY HOLD FOR SINGLE INSTRUCTION OP-CODE VALUE 

OPt STRING TO HOLD OPERATOR <+,-,/,*> 

PASS VARIABLE FOR ASSEMBLER PASS NUMBER 

PB POST BYTE VALUE USED FOR CERTAIN OP-CODES 

PC PROGRAM COUNTER (PC) VALUE 

PF PRINT FLAG (VALUE = 1 MEANS OUTPUT TO PRINTER) 

REG* REGISTER SYMBOLS AND NUMERIC ASSIGNMENT STRING 

RPO REGISTER PUSH/PULL EQUATES ARRAY 

RR REGISTER VALUE RANGE (0-3 VALID RANGE) 

S* TEMPORARY STRING FOR SOURCE CODE LINE 

SL SOURCE LINE COUNT FOR PROCESSING PASSES 

SL( > LEFT SIDE VALUES OF BALANCED TREE FOR SYMBOL TABLE 

SN SYMBOL NUMBER (SYMBOL TABLE COUNT/INDEX) 

SP SPACE COUNT USED FOR FORMATTING OUTPUT 

SRO RIGHT SIDE VALUES OF BALANCED TREE FOR SYMBOL TABLE 

SRC*() SOURCE CODE LINE HOLD ARRAY 

SStO SYMBOL TABLE STRING ARRAY 

SVO SYMBOL TABLE VALUE ARRAY 

T TEMPORARY VARIABLE 

T* TEMPORARY STRING VARIABLE 

TO TEHPORARY VARIABLE MHEN T ALREADY IN USE 

TT VARIABLE USED TO HOLD DECIMAL VALUE OF PC 

VDt VALID DELIMITERS STRING 

Z LENGTH OF CODE FOR USE WTH DATA STATEMENTS 



SAMPLE LISTING #1 - PONG/ASM (ASSEMBLER OUTPUT) 

6S0? ASSEMBLER - VERSION 1,2 03/01/83 18t07t32 



013S 


00100 LOCI EOU 


341 


KEYBOARD SCAN LOCS 


0156 


00120 L0C2 EOU 


342 




01S8 


00140 L0C3 EOU 


344 




01S3 


00140 L0C4 EOU 


339 




0E74 


00180 NOPLAY EOU 


3710 


AREA ABOVE BASIC PROG 


0E75 


00200 XBALL EOU 


NOPLAY+1 




0E74 


00220 YBALL EOU 


XBALL+1 




0E77 


00240 DELTAX EOU 


YBALL+1 




0E78 


00240 DELTAY EOU 


DELTAX+1 




0E7? 


00280 LFTPDL EOU 


DELTAY+1 




0E7A 


00300 RGTPDL EOU 


LFTPOL+1 




0E76 


00320 LFTCLR EOU 


RGTPDL+1 




0E7C 


00340 RGTCLR EOU 


LFTCLR+1 




0E7D 


00340 STATUS EOU 


RGTCLR+1 




0E7E 


00380 XCOORD EOU 


STATUS+1 




0E7F 


00400 YCOORD EOU 


XCOORD+1 




DEBO 


00420 COLOR EOU 


YCOORD+i 




■ESI 


00440 OPTION EOU 


COLOR+1 




1E82 


00440 RESULT EOU 


OPTION+1 




0E83 


00480 DOTOT EOU 


RE8ULT+1 




0000 3437 


00500 P8HS 


D,X,Y,CC 


SAVE REGISTERS 


0002 BD1D 


00520 BSR 


MVPDLl 


MOVE LEFT PADDLE 


0001 B40E74 


00540 LDA 


NOPLAY 


GIT NUMBER OF PLAYERS 


0007 8102 


00540 CMPA 


♦2 


2 PLAYERS? 


0009 2402 


00580 6NE 


AHEAD1 


NO -CONTINUE 


0006 8D7B 


00400 BSR 


MVPDL2 


YES - MOVE RIGHT PADDLE 


OOOD 7F0E7D 


00420 AHEAD1 CLR 


STATUS 


CLEAR STATUS 


0010 1700DC 


00440 LB8R 


MVBALL 


MOVE BALL - SET STATUS 


0013 8D0C 


00440 BSR 


MVPDLl 


HOVEPADOLE1 


001S B6DE74 


00480 LDA 


NOPLAY 


NO, OF PLAYERS ? 


0018 8102 


00700 CMPA 


♦2 




001A 2402 


00720 BNE 


GETOUT 


1-CONT 


001C8D4A 


00740 BSR 


MMP0L2 


2 -MOVE PADDLE 


HIE 80 


00740 GET0UT PULS 


D,CC ( X,Y 




0020 39 


00780 RT8 
00800 1 




RETURN TO BASIC PROGRAM 




00820 * MOVE LEFT PADDLE SUBROUTINE 




00840 1 






0021 B4FF 


00840 MVPDLt LDA 


M00FF 


RESET KEYIN 8IT8 FOR NEH 


0023 170155 


00880 STA 


LOCI 


KEYBOARD READ 


0024 870154 


00900 STA 


LK2 




0029 8401 


00920 LDA 


tl 


LEFT PAMLE X - COORD 


002B 870E7E 


00940 STA 


XCOORD 


SAVE FOR 8UBRTN CALL 


002E 640E7B 


00940 LDA 


LFTCLR 


LEFT PADDLE COLOR 
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0031 B70E90 


00^80 


STA 


COLOR 


STORE FOR SUBRTN CALL 




02580 * 


HOVE BALL SUBROUTINE. 




0031 7F0ES1 


01000 


CLR 


OPTION 


= SET OPTION 




024OO t 








00T AD9: A009 


01028 


JSR 


'$AO0O' 


POLL KEYBOARD 


O0EF 8601 


02620 MVBAli 


L LDA 


tl 


OF'TION = RESET 


003E 31v>E 


01010 


CMPA 


t$005E 


UP ARROW ? 


00F1 B70E81 


02610 


STA 


OPTION 




8 BSD £623 


01060 


ENE 


AHEAD2 


NO - CONTINUE 


00F1 8605 


02660 


LDA 


*5 


COLOR = WHITE 


S03F 660E7? 


01080 


LDA 


LFTPDL 


GET CURENT PADDLE POS, 


O0F4 B70E80 


02680 


STA 


COLOR 




0012 8103 


01100 


chPf. 


*3 


UPPER BOUND '■> 


O0F9 B60E75 


02700 


LDA 


XBALL 


GET BALL X-COORD 


0011 2711 


01120 


BEO 


PO-1QUT 


YES - EXIT 


00FC E70E7E 


02720 


STA 


XCOORD 


STORE IT 


0016 8001 


01110 


SUBA 


tl 


NEW = OLD - 1 


O0FF F60E76 


02710 


LDB 


YEiALL 


GET BALL Y-COORD 


0018 B70E79 


01140 


STA 


LFTPDL 


SAVE NEW POSITION 


0102 F70E7F 


02760 


STB 


YCOORD 


STORE IT 


001B 8001 


11130 


SU6A 


tl 


A = NEW POS TO SET 


0105 170092 


02780 


LESR 


SRPSBR 


RESET OLD BALL 


001O B70E7F 


01200 


STA 


YCOORD 


STORE Y FOR' SUBRTN CALL 


0108 BB0E77 


02800 


ADDA 


DELTAX 


GET NEW X POS 


0050 170117 


01220 


LBSF; 


SRPSBR 


SET NEW POINT 


010E FB0E78 


02820 


ADDB 


DELTAY 


GET NEW Y-POS 


0053 8B03 


01210 


ADDA 


#3 


A = OLD POS TO RESET 


010E B70E75 


02810 SKIP1 


STA 


XBALL 


STORE NEW X COORD 


0055 B70E7F 


01260 


STA 


YCOORD 


STORE Y FOR SUBRTN CALL 


0111 B70E7E 


02860 


STA 


XCOORD 




0053 C601 


01280 


LDB 


tl 


1 = RE SET 


0111 C102 


02880 


CHPB 


*2 




005A F70E81 


01300 


STB 


OF'TION 


SET UP CALL 


0116 2C02 


02900 


BGE 


SKIP2 


>= 2 - SKIP 


005D 17013A 


01320 


LBSR 


SRPSBR' 


RESET OLD POINT 


0118 C602 


02920 


LDB 


t2 




0060 2025 


01310 


BRA 


PD10UT 


EXIT 


011A CUD 


02910 SKIP2 


CHPB 


#29 




0062 810A 


01340 AHEAD; 


2 CMPA 


t$0OOA 


DOWN ARROW ? 


011C 2F02 


02940 


BLE 


SKIP3 


■;.= 28 - SKIP 


0061 2621 


01380 


BNE 


FD10UT 


NO - EXIT 


011E C61D 


02980 


LDB 


♦29 




0066 660E79 


01100 


LDA 


LFTPDL 


GET LEFT PADDLE POS 


0120 F70E76 


03000 SKIP3 


STB 


YBALL 


STORE NEW Y VALUE 


006? 81 1C 


01120 


CHPA 


128 


LAST POSITION ? 


0123 F70E7F 


03020 


STB 


YCOORD 




0066 271A 


01110 


BEG 


PD10UT 


YES - EXIT 


0126 7F0E81 


03010 


CLR 


OPTION 


OPTION = SET 


006D 8801 


01160 


ADDA 


tl 


POINT TO NEW POS 


0129 170 06E 


03060 


LBSR 


SRPSBR 


SET NEW BALL 


006F B70E79 


01180 


STA 


LFTPDL 


STORE NEW POS 


012C 8102 


03080 


CHPA 


*2 


LEFT BORDER' ? 


0072 8B01 


01500 


ADDA 


tl 


NEH POINT TO SET 


012E 2605 


03100 


E*E 


BALL1 


NO - CHECK RIGHT 


0071 B70E7F 


01520 


STA 


YCOORD 


SAVE FOR SUBRTN 


0130 F00E79 


03120 


SUE* 


LFTPDL 


PADDLE POS - Y COORD 


0077 170120 


01510 


LBSR 


SRPSBR 


TURN ON POINT 


0133 201B 


03110 


BRA 


BALL2 


JUMP AROUND RIGHT LOGIC 


007A 8003 


01560 


SUBA 


t3 


OLD POINT TO RESET 


0135 813D 


03160 BALL1 


CHPA 


t61 


RIGHT BORDER ? 


007C B70E7F 


01580 


STA 


YCOORD 


SAVE FOR SUBRTN 


0137 261E 


03180 


BNE 


BALL1 


NO - HISSED BALL 


007F 8601 


01600 


LDA 


tl 


OPTION = RESET 


0139 3102 


03200 


PSHS 


A 


SAVE A 


0081 B70E81 


01620 


STA 


OPTION 




013B B40E71 


03220 


LDA 


NOPLAY 


2 PLAYERS ' 


0081 170113 


01610 


LBSR 


SRPSBR 


RESET OX> POINT 


013E 8102 


83210 


CMPA 


#2 




0087 3? 


01660 PD10UT RTS 




EXIT 


0110 3502 


03260 


PULS 


A 


RESTORE A 




01680 * 








0H2 270? 


03280 


BEQ 


PATCHl 


2 - CONT 




01700 » 


MOVE RIGHT PADDLE SUBROUTINE 


0111 C601 


03300 


LDB 


tl 






01720 « 








0116 F70E7D 


03320 


STB 


STATUS 




0088 86FF 


01710 HVPDL2 LDA 


t$00FF 


RESET CURRENT KEY-IN 


011? C610 


03310 


LDB 


tl6 




008A 870158 


01760 


STA 


L0C3 


FOR NEW READ 


011B 2004 


03360 


ERA 


PATCH2 


1 PLAYER 


008D 870153 


01780 


STA 


LOCI 




011D FO0E7A 


03380 PATCH1 SUBB 


RGTPDL 


BALL « PADDLE POS 


0090 863E 


01800 


LDA 


♦62 


COLUMN = 62 FOR RIGHT 


0150 F70E78 


03100 BALL2 


STB 


DELTAY 


IF HIT - NEW DELTA Y 


0092 B70E7E 


01820 


STA 


XCOORD 


SAVE FOR SUBRTN CALL 


0153 700E77 


03120 FATCHI 


! NEG 


DELTAX 


DELTA X = - DELTA X 


0095 B60E7C 


01810 


LDA 


RGTCLR 


GET RIGHT PADDLE COLOR 


0156 C1FF 


03110 


CMPB 


ttOOFF 


MINUS ONE ? 


0098 B70EB0 


01840 


STA 


COLOR 


STORE FOR SUBRTN CALL 


0158 2726 


03160 


BEO 


FJALL3 


YES - STATUS = HIT 


009B 7F0E81 


01880 


CLR 


OPTION 


OPTION = SET 


015A C100 


03180 


CHPB 


to 


? 


009E AD9FA000 


01900 


JSR 


ItAOOO 1 


POLL KEYBOARD 


015C 2722 


03500 


BEO 


BALL3 


YES - STATUS = HIT 


00A2 8109 


01920 


CMPA 


t9 


LEFT ARROW ? 


015E C101 


03520 


CMPB 


tl 


1 ? 


00A1 2623 


01910 


BNE 


AHEAD3 


NO -CONTINUE 


0160 271E 


03510 


BEQ 


BALL3 


YES - STATUS = HIT 


00A6 B60E7A 


01960 


LDA 


RGTPDL 


GET RIGHT POSITION 


0162 813D 


03560 


CHPA 


til 


RIGHT LIMIT ? 


OOA? 8103 


01980 


CMPA 


♦3 


UPPER LIMIT ? 


0161 2613 


0358O 


BNE 


BALL2B 


NO - STATUS = MISSED 


OOAB 2711 


02000 


BED 


PD20UT 


YES - EXIT 


0166 B60E71 


03600 


LDA 


NOPLAY 


GET NO, OF PLAYERS 


OOAD 8001 


02020 


SUBA 


tl 


NEH POS - OLD - 1 


0169 8102 


03620 


CHPA 


tz 


2 ? 


OOAF B70E7A 


02010 


STA 


RGTPDL 


STORE NEW POSITION 


016B 2705 


03610 


BEO 


BALL2A 


YES - CHECK HIT/MISS 


0OB2 8001 


02060 


SUBA 


tl 


POINT TO SET 


016D 700E77 


03660 


NEG 


DELTAX 


NO - DELTAX- -DELTAX 


00B1 B70E7F 


02080 


STA 


YCOORD 


SAVE FOR SUBRTN CALL 


0170 2015 


03680 


ERA 


BALL1 


CHECK BORDERS 


0087 1700EO 


02100 


LBSR 


SRPSBR 


SET NEW POINT 


0172 8601 


03700 BALL2A LDA 


tl 


STATUS = RIGHT MISS 


OOBA 8B03 


02120 


ADDA 


t3 


POINT TO RESET 


0171 B70E7D 


03720 


STA 


STATUS 




ODBC B70E7F 


02110 


STA 


YCOORD 


SAVE IT 


0177 2020 


03710 


BRA 


BALOUT 


EXIT 


OOBF C601 


02160 


LDB 


tl 


1 = RESET 


017? 8603 


03760 BALL2E LDA 


♦3 


STATUS = LEFT MISS 


00C1 F70EB1 


02180 


STB 


OPTION 


OPTION = RESET 


017B B70E7D 


03780 


STA 


STATUS 




00C1 1700D3 


02200 


LBSR 


SRPSBR 


RESET OLD POINT 


017E 2019 


03800 


BRA 


BALOUT 


EXIT 


0OC7 2025 


02220 


BRA 


PD20UT 


EXIT 


0180 8602 


03820 BALL3 


LDA 


#2 


STATUS = PADDLE HIT 


OOC? 810C 


02210 AHEAD3 CHPA 


MBI0C 


CLEAR KEY? 


0182 B70E7D 


03810 


STA 


STATUS 




OOCB 2621 


02260 


BNE 


PD20UT 


NO - EXIT 


0185 2012 


03860 


ERA 


BALOUT 


EXIT 


OOCD B60E7A 


02280 


LDA 


RGTPDL 


GET RIGHT POS 


0187 CI 02 


03880 E*LL1 


CMPB 


tz 


CHECK UPPER BOUND 


OODO 81 1C 


02300 


CHPA 


t28 


LOWER LIMIT ? 


018? 2F06 


0390O 


BLE 


BALL5 


YES - SET STATUS 


0OD2 271A 


02320 


BEQ 


PD20UT 


YES - EXIT 


018B CUD 


03920 


CHPB 


#29 


CHECK LOWER BOUND 


0OD1 8B01 


02310 


ADDA 


tl 


new pos = ao POS + 1 


018D 2C02 


03910 


BGE 


BALLS 


YES - SET STATUS 


0OD6 B70E7A 


02360 


STA 


RGTPDL 


SAVE NEW POS 


018F 2008 


03960 


BRA 


BALOUT 


GET OUT 


0OD9 8801 


02380 


ADDA 


tl 


NEW POINT TO SET 


0191 700E7B 


03980 BALLS 


NEG 


DELTAY 


DELTA Y = - DELTA Y 


OODB B70E7F 


02100 


STA 


YCOORD 


SAVE FOR SUBRTN CALL 


0191 8601 


01000 


LDA 


tl 


STATUS = BOUNDRY HIT 


OODE 1700B9 


02120 


LBSR 


SRPSBR 


SET NEW POINT 


0196 E70E7D 


01020 


STA 


STATUS 




00E1 8003 


02110 


SUBA 


»3 


POINT TO RESET 


0199 39 


01010 BALOUT RTS 




EXIT 


00E3 B70E7F 


02160 


STA 


YCOORD 


SAVE IT 


019A 


01040 SRPSBR EQU 


i 


ADD CODE FOR GRAPHICS 


00E6 C601 


02180 


LDB 


tl 


I = RESET 












O0E8 F70E81 


02500 


STB 


OPTION 


OPTION = RESET 












OOEB 1700AC 


02520 


LBSR 


SRPSBR 


RESET POINT 




SAMPLE LISTING #2 STARTS 


ON NEXT P.-.iE ■ 


OOEE 39 


02510 PDZOUT RTS 
02560 i 




EXIT 
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SAMPLE LISTING #2 - SETRES/ASM (ASSEMBLER OUTPUT) 



6809 ASSEMBLER - VERSION ! , 



00100 « 



03/01/83 20!18!39 



00120 I SET/RESET/POINT FOR LOW-RES COLOR' GRAPHICS 

00110 * 

OOUO « FOR' USE WITH PONG - NOTE EQUATES 

00180 * 



0E 7 1 


00210 NOPLAY EOU 


3700 




0E75 


00260 XBALL 


EOU 


NOPLAY+1 




0E74 


00280 YBALL 


EOU 


X6ALL+1 




CE77 


00300 DELTAX EOU 


YBALL+1 




0E78 


00320 DELTAY EOU 


DELTAX+1 




0E79 


00310 LFTPDL EOU 


DELTAY+1 




ftE7A 


00360 RGTPDL EOU 


LFTPDL+1 




0E76 


00380 LFTCLft EOU 


RGTPDL+1 




0E7C 


00100 RGTCLR EOU 


LFTCLR+1 




0E7D 


00420 STATUS EOU 


RGTCLR+1 




0E7E 


00410 XCOORD EOU 


STATUS+1 




OE7F 


00160 YCOORD EOU 


XCOORD+1 




OE80 


00180 COLOR 


EOU 


YCOORD+1 




0E81 


00500 OPTION EOU 


COLOR+1 




0E82 


00520 RESULT EOU 


OPTION+1 




0E83 


00510 DOTBIT EOU 


RESULT+1 






00560 I 










00580 » SRPSBR-SET, RESET, POINT SBR 




00600 I INPUT! XCOORD— ♦ FROM 


- 63 




00620 t 


YCOORD—t FROM - 


31 




00610 i 


COLOR — t FROM 1 - 


8 IF OPTION = 




00660 * 


OPTTON"D=SET, 1=RESET, 2=POINT 




00480 t OUTPUT! RESULT-AS IN BASIC FN POINT(X,Y) 




00700 i 










00720 i USES FOLLOWING ALGORITHM TO DETERMINE DOT 




00710 i 










00760 i 


X Y 


XLATION RESULTANT # 




00780 I 


E E 


(0) 


8 




00800 » 


O E 


1 (1) 


1 




00820 I 


E O 


1 (2) 


2 




00810 * 


O O 


1 1 (3) 


1 




00860 « 


(ELEVEN, 0=ODD) 






00880 » 








0000 3137 


00900 SRPSBR PSHS 


D,X,Y,CC ■ 


SAVE IMPORTANT REGS 


0002 5F 


00920 


CLRB 




B HILL GET COUNT OF 0-3 


0003 640E7E 


00910 


LDA 


XCOORD 


GET X-COORDINATE IN A 


0004 11 


00960 


LSRA 




DIVIDE X COORD BY 2 


0007 2101 


00980 
01000 i 


BCC 


DONEX 


IF B0 HASN'T SET (X EVEN), 
DON'T INC B 


0009 5C 


01020 


INCB 




X ODD-SET B0 IN B 


000A 3102 


01010 DONE* 


PSHS 


A 


SAVE X/2 TEMPORARILY 


0O0C B60E7F 


01060 


LDA 


YCOORD 


GET Y-COORDINATE 


0O0F 11 


01080 


LSRA 




DIVIDE Y BY Z 


0010 2102 


01100 
01120 « 


BCC 


DONEY 


IF Y EVEN, B HAS CORRECT 
COUNT NOW 


0012 CA02 


01110 


ORB 


*2 


SET Bl IN B SINCE Y ODD 


0011 3102 


01160 DONEY 


PSHS 


A 


SAVE Y/2 TEMPORARILY 


0016 8608 


01180 


LDA 


#8 


SET BIT IN 1 TO LSR 


0018 5A 


01200 BITLP 


DECB 




DEC CNT OF LSR'S 


0019 2B03 


01220 


BMI 


GOTBIT 


DONE WHEN B < 


0016 41 


01210 


LSRA 




SHIFT BIT IN A LEFT BY 1 


001C 20FA 


01260 


BRA 


BITLP 


LOOP TILL A HAS 8,4,2, OR 1 


001E B70E83 


01280 GOTBIT STA 


DOTBIT 


STORE VALUE OF BIT TO SRP 


0021 3502 


01300 


PULS 


A 


GET Y COORD / 2 


0023 C620 


01320 


LDB 


*32 


PUT 32 IN B FOR MULT 


0025 3D 


01310 


MUL 




Y/2 i 32 


0026 1F01 


01360 


TFR 


X,D 


X-FER RESULT TO X 


0028 3502 


01380 


PULS 


A 


GET X COORD / 2 


002A 3086 


01100 


LEAX 


A,X 


ADD X/2 TO Y/2132 


002C 30890400 


01120 


LEAX 


1021, X 


FORM ADOR TO GRAPHICS BLK 


0030 A684 


01110 


LDA 


0,X 


GET WORD NOW IN THIS SPOT 


0032 F60E81 


01460 


LDB 


OPTION 


GET OPTION (0-2) 


0035 271E 


01180 


BED 


SET 


IF 0, OPTION=SET 


0037 5A 


01500 


DECB 




IS IT 1? 


0038 2732 


01520 


BEO 


RESET 


IF 1, QPTION=RESET 


003A 5F 


01510 
01560 J 


CLRB 




OPTION=POINT-SET RESULT 
REG TO "OFF" 


0038 ID 


01580 


TSTA 




IS B7 OF WORD SET? 



0OX 2B04 
003E CAFF 
0040 200E 
0012 610E83 
0045 2709 
0017 E681 

0049 C17F 
004B 54 
004C 54 
004D 51 
001E 51 
004F 5C 

0050 F70E82 
0053 201F 
0055 BA0E83 
0058 848F 
005A F60E80 
005D 5A 
005E 58 
005F 58 

0060 58 

0061 58 
0042 3404 
0064 AAE0 
0066 8A80 
0068 A784 
006A 2008 
006C 730E83 
006F B10E83 
0072 A784 
0074 3537 
0076 39 



01600 
01620 
01610 
01660 
01680 
01700 
01720 
01710 
01760 
01780 
01800 
01820 
01810 
01860 
01880 
01900 
01920 
01910 
01960 
01980 
02000 
02020 
02010 
02060 
02080 
02100 
02120 
02110 
02160 
02180 
02200 
02220 



BMI 

ORE: 
BRA 

NOTALF ANDA 
EEO 
LDB 
ANDB 
LSRB 
LSRB 
LSRB 
LSRB 
INCB 

EXIF'NT STB 
BRA 



SET 



ORA 

ANDA 

LDB. 

DECB 

LSLB 

LSLB 

LSLB 

LSLB 

PSHS 

ORA 

ORA 

STA 

BRA 

RESET COM 
ANDA 
STA 

EXISRP PULS 
RTS 



NOTALF 

HOOFF 

EXIPNT 

DOTEUT 

EXIPNT 

0,X 

WB07F 



RESULT 
EXISRP 
DOTBIT 
H0OBF 
COLOR 



B 

,S+ 

M0080 

0,X 

EXISRP 

DOTBIT 

DOTBIT 

0,X 

D,CC,X,Y 



SAMPLE DATA STATEMENT 
OUTPUT FOR PONG/ASM! 

100 DATA 110:REM==>SIZE OF OBJECT CODE 
110 DATA 52,55,111,29,182,14,116,129 
120 DATA 2,38,2,141,123,127,14,125 
130 DATA 23,0,220,141,12,182,14,116 
140 DATA 129,2,38,2,141,106,53,55 
150 DATA 57,131,255,183,1,85,183,1 
160 DATA 86,131,1,183,14,126,182,11 
170 DATA 123,183,11,128,127,11,129,173 
180 DATA 159,160,0,129,91,38,35,182 
190 DATA 14,121,129,3,39,65,128,1 
200 DATA 183,14,121,128,1,183,14,127 
210 DATA 23,1,71,139,3,183,14,127 
220 DATA 198,1,217,14,129,23,1,58 
230 DATA 32,37,129,10,38,33,182,14 
240 DATA 121,129,28,39,26,139,1,183 
250 DATA 11,121,139,1,183,14,127,23 
260 DATA 1,32,128,3,183,14,127,134 
270 DATA 1,183,11,129,23,1,19,57 
280 DATA 134,255,183,1,88,183,1,83 
290 DATA 134,62,183,14,126,182,11,124 
300 DATA 183,14,128,127,14,129,173,159 
310 DATA 160,0,129,9,38,35,182,14 
320 DATA 122,129,3,39,65,128,1,183 
330 DATA 14,122,128,1,183,14,127,23 
340 DATA 0,224,139,3,183,14,127,198 
350 DATA 1,247,11,129,23,0,211,32 
360 DATA 37,129,12,38,33,182,11,122 
370 DATA 129,28,39,26,139,1,183,14 
380 DATA 122,139,1,183,14,127,23,0 
390 DATA 185,128,3,183,11,127,198,1 
400 DATA 247,11,129,23,0,172,57,131 
110 DATA 1,183,11,129,131,5,183,11 
120 DATA 128,182,11,117,183,11,126,246 
130 DATA 11,118,247,14,127,23,0,114 
110 DATA 187,11,119,251,11,120,183,11 
150 DATA 117,183,11,126,193,2,44,2 



IF B7 SET, NOT ALPHA MODE 

-1=ALPHANUHERIC MODE 

STO RESULT 8 EXIT 

IS THE BIT SET? 

IF RESET, RET (IN B) 

GET WORD WE'RE TESTING 

CLEAR BIT 7 

RT-JUSTIFY COLOR BITS 6-1 

SO COLOR POINT IS SET TO 

WILL BE RETURNED IN B 

B NOW HAS COLOR TO RET 
STORE RESULT OF POINT 
EXIT 

SET BIT ON FOR DOT 
CLEAR COLOR BITS 
GET COLOR TO SET DOT 
DEC SO IN RANGE - 7 
PUT COLOR IN BITS 6 - 4 



PUT COLOR BITS ON STACK 

OR INTO GRAPHIC WD; CLR STK 

SET GRAPHICS BIT ON 

STO HORD IN VIDEO MEMORY 

EXIT 

SET ALL BITS EXCEPT THE 1 

RESET BIT FOR THE DOT 

STORE WORD WITH DOT RESET 

RESTORE SAVED REGS 

RETURN 



460 DATA 198,2,193,29,17,2,198,29 
470 DATA 247,14,118,247,14,127,127,14 
480 DATA 129,23,0,110,129,2,38,5 
490 DATA 240,14,121,32,27,129,61,38 
500 DATA 78,52,2,182,14,116,129,2 
510 DATA 53,2,39,9,198,1,247,14 
520 DATA 125,198,16,32,6,240,14,122 
530 DATA 217,11,120,112,11,119,193,255 
540 DATA 39,38,193,0,39,31,193,1 
550 DATA 39,30,129,41,38,19,182,11 
540 DATA 114,129,2,39,5,112,14,119 
570 DATA 32,21,134,4,183,14,125,32 
580 DATA 32,131,3,183,11,125,32,25 
590 DATA 131,2,183,11,125,32,18,193 
400 DATA 2,17,4,193,29,11,2,32 
610 DATA 8,112,11,120,131,1,183,11 
420 DATA 125,57 



SAMPLE DATA STATEMENT 
OUTPUT FOR SETRES/ASM! 

1000 DATA 119;REM=:>SIZE OF OBJECT 
CODE 

1010 DATA 52,55,95,182,11,126,68,34 
1020 DATA 1,92,52,2,182,11,127,68 
1030 DATA 36,2,202,2,52,2,131,8 
1040 DATA 90,43,3,68,32,250,183,14 
1050 DATA 131,53,2,198,32,61,31,1 
1060 DATA 53,2,48,134,48,137,4,0 
1070 DATA 166,132,216,11,129,39,30,90 
1080 DATA 39,50,95,77,13,1,202,255 
1090 DATA 32,11,180,11,131,39,9,230 
1100 DATA 132,196,127,84,81,84,81,92 
1110 DATA 217,11,130,32,31,186,11,131 
1120 DATA 132,113,216,11,128,90,88,88 
1130 DATA 88,88,52,1,170,221,138,128 
1110 DATA 167,132,32,8,115,11,131,180 
1150 DATA 11,131,147,132,53,55,57 



ZAP TO DISABLE LDOS 5.1 PASSWORD CHECKING - This 
was Found lying around on a scrap of paper(l). I don't own a copy 
of LDOS, so I can't verify this, but you may try it if you like (let 
me know if it works'). To disable password checking in LDOS 
5,1.x, change SYS2/SYS, Record 2, Byte 19H from 28H to 18H 
(surrounding bytes should be! 52 El xx 2D 79), 
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BOOK REVIEW - DR. DOBB'S JOURNAL, VOLUME SIX 
(Published by Hayden Book Company, Inc., *29.95) - Back in the 
days before anyone ever heard of the TRS-80 (1976, to be exact), a 
magazine called Dr. Dobb's Journal of Computer Calisthenics & 
Orthodontia began publication (their motto was, "Running Light 
Without Overbyte"). If I may risk the comparison, Dr. Dobb's was 
to the early microcomputer user what The Alternate Source 
Programmer's Journal was to the TRS-80 user - that is, a 
magazine for folks that got into such things as assembly 
language, operating systems, and the latest innovations in 
high-level languages. Each volume of Dr. Dobb's has been printed 
as a bound volume, and the latest in that series is bound volume 
six, which includes all of the issues of Dr. Dobb's that were 
published in 1981. The book itself is fairly hefty - with 558 
pages of good, heavy paper stock, it's even thicker than an issue 
of BYTE. 

To get right to the point, you may wonder if this volume 
contains much of interest to the TRS-80 user, That depends. If 
you're looking for programs that you can just type in and run, 
forget it - unless you happen to be a tape user and need a fast 
cassette I/O routine for BASIC arrays, because that is the only 
program specifically written for the TRS-80 in the entire book! 
There is also an article describing how to interface a TRS-80 
Voice Synthesizer to other brands of microcomputers, and a few 
reviews of TRS-80 related products, but not much else. 

However, if you're willing to try and adapt programs written 
for other machines, you can try your luck on several Z-80 programs 
(such as a file comparator, video drivers, a memory test, a floppy 
disk test, and a cross-assembler that will permit you to generate 
object code for an 8086 or 8088 CPU). There are also several 
short but useful Z-80 subroutines in various places around the 
book. Two cautions, however! some of the assembly listings use 
octal constants (rather than the more familiar decimal or 
hexadecimal), which may not be a problem for you, since many 
TRS-80 Editor-Assembler packages are capable of handling octal 
numbers provided that they are suffixed with the letter "O" (or 
whatever the assembler uses to indicate octal). The other 
problem is that some of the listings use 8080 style mnemonics, 
instead of the more familiar Z-80 opcodes. Most TRS-80 
assemblers will choke on 8080 mnemonics! Have fun converting 
them to Z-80 format. 

On the other hand, if your interest is in computer languages, 
you'll probably find that many of the articles in this book will 
catch your fancy, especially if your interest is in FORTH - there 
are a number of FORTH-related articles included in this volume. 
Other languages discussed include C, COMAL-80, Tiny BASIC, 
PARFOR, SLIC, PIDGIN, LISP, and various dialects of assembly 
languages. 

Several program listings are included, most of which are 
utilities of one type or another, with a Rubik's Cube simulator in 
BASIC as a notable exception (and the only program in the book 
that even resembled a game), Many of the listings are 
demonstration routines, designed to show how to use a particular 
algorithm under discussion, or intended to illustrate a better way 
to program a specific task. This seems to be the general theme of 
Dr. Dobb's - it's definitely written for programmers and "true 
hackers" (I'm using the word "hacker" as computer people use it, 
not as Hollywood does). 

My favorite part of this volume was a monthly column that 
began in the May, 1981 issue, entitled "Dr. Dobb's Clinic" and 
written by D. E. Cortesi. One purpose of this column was to 
solicit input from readers of the magazine, to provide solutions to 
various problems that were presented (for example, the fastest 
way to divide by 10 in assembly language, or how to define a MIN 
or MAX function in a version of BASIC that doesn't have those 
functions built in - such as TRS-80 BASIC). It was very 
interesting to see some of the clever answers that were provided 
to do the task faster, better, or with less memory usage. 

Dr. Dobb's Journal began accepting advertising in 1981. The 
ad pages were removed from the bound volume, but in at least one 
instance, a couple of pages of program listings were (probably 
inadvertently) removed as well. Unfortunately, the missing pages 
were part of the "Dr. Dobb's Clinic" column in the November, 1981 
issue (pages 60-61). Boo, hiss! 

The bottom line - if you really get into the inner workings of 
microcomputers in general (not just the TRS-80), you'll love this 
book. If your interest is limited to the TRS-80, you may find it 
hard to justify spending *29.95 for the book, although it may be 
worth the money if you are really into languages such as FORTH, 
or if you'd enjoy the challenge of converting programs written for 



other Z-80 based computers to run on the TRS-80. If you aren't 
sure you want to spend the J29.95, you might want to buy or 
borrow an issue of Dr. Dobb's Journal and look it over, to get an 
idea of the type of material they publish. If you like the 
magazine, go ahead and buy the bound volume. If you like bound 
volume six, you may be interested to know that the previous five 
bound volumes are still available, at S25.95 each. I haven't seen 
any of the previous volumes, so I cannot comment on them. If you 
want further information about Dr. Dobb's Journal, you might try 
writing to the publisher; People's Computer Company, Box E, 1263 
El Camino Real, Menlo Park, California 94025. 

As an example of the type of interesting little routine I 
found in "Dr. Dobb's Clinic", here's something that originally 
appeared in the October, 1981 issue of Dr. Dobb's. It was sent by 
a reader in response to a challenge to find the fastest way to 
divide a number by ten in assembly language! 

"Allen Ashley of Pasadena, CA sent in what is certainly the 
most unique division algorithm we've seen. It can handle only 
numbers less than 2560, for reasons that will become clear as you 
study the code. It's very quick, and could be useful as in-line 
code in certain special applications. Ashley's analysis runs thus! 
given that HL is equal to or greater than zero but less than 2560, 
256*(HL/10) = 25*HL + (6*HL)/10 

= 25*HL + HL/2 + HL/10 
and his code to generate the latter expression is an education!" 

! Ashley's Unique Division Routine 

J INPUT! HL contains a positive binary integer less than 2560. 

! OUTPUT! H only contains the input divided by 10, 

! ALTERS! ALL 

HLD10 LD B,H 

LD C,L 

CALL HX25 ! HL = 25*HL 

OR A 

LD A,B 

RRA 

LD B,A 

LD A,C 

RRA 

LD CA 

ADD HL.BC ; HL = 25*HL + HL/2 

LD E,H 

LD D,0H J DE = <25,5*HL)/256, or about HL/10 

ADD HL.DE ! HL = 25*HL + HL/2 + HL/10 

INC HL } (after fudge) 

RET ! H = HL/10 when HL-C2560 

HX25 CALL HX5 

HX5 LD D,H 

LD E,L 

ADD HL.HL 

ADD HL.HL 

ADD HL.DE 

RET 

[Editor's note! I have changed the 8080 mnemonics used in the 
original listing to Z80 mnemonics in the above listing, since most 
TRS-80 assemblers accept Z80 mnemonics only. However, I did not 
optimize the code for use on the 280. I suggest that Z80 users 
substitute SRL B and RR C instructions for the code that falls 
between (but not including) the CALL HX25 instruction and the 
ADD HL,BC instruction. This would further improve execution 
time and save a bit of memory, and would have the added benefit 
of saving the contents of the A register.] 

8030/8085 TO Z80 CONVERSION CHART - The Z80 
microprocessor is "upward compatible" with the older 8080 
microprocessor - that is, programs written for the 8080 can run on 
the Z80, though the reverse may not be true. The 8085 has the 
same instruction set as the 8080, except that it has two added 
instructions (RIM and SIM - these read and set the 8085 
"interrupt mask", so there is no Z80 equivalent of these two 
instructions). However, 8080/8085 assembly language uses 
different mnemonics than Z80 assembly, so conversion of 
published programs for the 8080/8085 becomes a difficult task 
unless you have a conversion chart. This is such a chart. The 
8080/8085 mnemonic is found in the left column , the equivalent 
Z80 mnemonic on the right. Now you can convert those nice 
8080/8085 subroutines that you sometimes find in non-TRS-80 
magazines for use on your '80. 
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(NOTE! Register pairs are indicated by only the first letter 
of the register pair in 8080/8088 assembly language listings, thus 
INX H translates to INC HL.) 



8080/8085 Z80 



8080/8085 Z80 



8080/8085 Z80 



kCIn 

ADCr 

ADCM 

ADDr 

ADDM 

ADIn 

ANAr 

ANAM 

ANIn 

CALL nn 

CC nn 

CMnn 

CMA 

CMC 

CMPr 

CMPM 

CNCnn 

CNZnn 

CPnn 

CPE nn 

CPIn 

CPO nn 

CZ nn 

DAA 

DAD rr 

DCRr 

DCRM 

DCXrr 

DI 

EI 

HLT 



ADC A t n 
ADC A,r 
ADC Ai(HL) 

■ ADD A,r 

■■ ADD A,(HL> 
■■ ADD A f n 
• ANDr 
■■ AND (HL) 
^ANDn 
: CALL nn 

■ CALL C,nn 
■■ CALL M,nn 
<CFL 

:CCF 

<CFr 
= CP (HL) 
■■ CALL NCnn 
> CALL NZ.nn 
= CALL Finn 
= CALL PE,nn 
^CPn 

■ CALL PO,nn 
■■ CALL Zinn 
■DAA 

= ADD HL,rr 
= DECr 

■ DEC (HL) 
= DEC rr 

= DI 
= EI 
= HALT 



INn 
INRr 
INRM 
INX rr 
JC nn 
JM nn 
JMP nn 
JNC nn 
JNZ nn 
JP nn 
JPE nn 
JPOnn : 
JZnn 
LDA nn ■■ 
LDAX rr 
LHLD nn 
LXI rr.nn 
MOV r,r 
MOV M,r 
MOV r,M 
MVI r,n 
MVI M,n 
NOP 
ORAr 
ORAM 
ORIn 
OUTn 
PCHL 
POP rr 
PUSH rr 



■■ IN A,(n> 
INCr 
■ INC (HL) 
= INC rr 
= JP Cnn 

• JP M,nn 
= JPnn 

= JP NC,nn 
= JP NZ,nn 
= JP P,nn 
= JP PE,nn 
: JP PO,nn 
■■ JP Z,nn 
■■ LD A,(nn) 
■■ LD A,(rr) 

• LD HL,(nn) 
' LD rr ,nn 

= LD r,r 
= LD (HL),r 
= LD r,(HL) 
' LD r,n 
= LD (HL),n 
= NOP 
= ORr 
= OR (HL) 
= ORn 
■■ OUT (n),A 
= JP (HL) 
= POPrr 
= PUSH rr 



RAL 

RAR 

RC 

RET 

RLC 

RM 

RNC 

RNZ 

RP 

RPE 

RPO 

RRC 

RSTn 

RZ 

SBBr 

SBBM 

SBIn 

SHLD nn 

SPHL 

STA nn 

STAX rr 

STC 

SUBr 

SUBM 

SUIn 

XCHG 

XRAr 

XRAM 

XRIn 

XTHL 



= RLA 
= RRA 
= RETC 
= RET 
= RLCA 
= RETM 
= RETNC 
= RETNZ 
= RETP 
= RETPE 
= RETPO 
= RRCA 
= RST n 
= RETZ 
= SBC A,r 
= SBC A,(HL) 
= SBC A,n 
= LD (nn),HL 
= LD SP.HL 
= LD (nn),A 
= LD (rr),A 
= SCF 
= SUBr 
= SUB (HL) 
= SUBn 
= EX DE,HL 
= XORr 
= XOR (HL) 
= XORn 
= EX (SP),HL 



"USER FRIENDLY" BANNED BY UNICORN HUNTERS - The 
Unicorn Hunters of Lake Superior State College (located right 
here in goad old Sault Ste. Marie, Michigan) have included the 
phrase "user friendly" among the words and phrases on their tenth 
annual dishonour list of words and phrases banished from the 
Queen's English for mis- or over-use, as well as general 
uselessnessf 

According to nominator Edward C. Loyer of the University of 
Michigan, "user friendly" comes "from the same folks who have 
given us 'up' meaning functioning and 'down' meaning broken." 

The Unicorn Hunters further note that "a light switch which 
glows in the dark is 'user friendly.' A corkscrew is not, Mr. 
Loyer is concerned not with the 'user' but with the 'friendly!' 'Is 
this to give me the urge to take a particular system to lunch, or to 
find some alternative way to get intimate with it? Are there also 
systems or machines that are "user-unfriendly"?'" 

Actually, the term "user friendly" wasn't the number one 
banishment for the year 1984. That honor goes to the term "high 
tech", which is said to be "used by politicians, advertisers, and 
educators to signify nothing except a vague jumble of concepts 
which they favor. Its most important contribution to the world of 
jargon is its potential for grammatical formulations. Does one 
use high tech like a wrench? Or operate it like a bulldozer? 
Practice it like a religion? Was high tech invented, developed, 
discovered or manufactured?' 

For a copy of the 1984 banishment poster (price 50 cents) or 
further information about the Unicorn Hunters, phone 
(906) 635-2315 or write Unicorn Hunters, c/o Lake Superior State 
College, Sault Ste. Marie, Michigan 49783. 

PERSONAL SOFTWARE MAGAZINE - The following item 
comes to us from the New York Amateur Computer Club 
newsletter! 

...has anyone seen the new magazine, Personal Software? 
Describing itself as "The Monthly Review of the Best Packages", 
it takes the dubious position of not saying anything bad about 
anybody's product, ever. This is because, to paraphrase the 
editor, they've already checked it out and if there was anything 
wrong with it, at all, they wouldn't waste our time by reviewing it 
in the first place. A beneficial aside, of course, is that none of 
those companies with all those Big Ad Bucks ever get mad at 
Personal Software. Got it? 



CHRISTIAN COMPUTER-BASED COMMUNICATIONS is a 
group you might want to be in contact with if your church owns or 
uses a microcomputer. They list their objectives as follow*! 

1) To spread the GOSPEL of God's Love among all people 
through means of the technology now available to us. 

2) To aid new Christians with answers to questions of their 
Faith, Doctrines and Teachings. 

3) To provide the secular world with Christian Alternatives 
to the Questions of Life. 

4) To promote alternatives to the popular Video Games with 
Co-operative Games emphasizing Christian Moral Values. 

5) To promote programs and teaching games which emphasize 
the Christ-Centered Life. 

6) To aid Church administrators in their task as stewards of 
the Christian Body by providing computer-assisted aids to the 
efficient organization of their time. 

7) To promote the use of Christian Computer Programs 
through distribution to associate members. 

I received a rather lengthy letter from Mr. John Eastern of 
Christian Computer/Based Communications, which indicates that 
their work actually goes quite a bit beyond what you might think 
by reading the above. I'd like to reprint one part of Mr. Easton's 
letter, which makes me suspect that at one time or another he's 
had contact with that unique breed known as "computer 
salespersons": 

"... I suppose that brings me around to one of my minor 
peeves at Mainframe oriented thinking. Does one REALLY need 
to know how many times a parishioner's family has had Measles, 
and whether they individually and/or collectively enjoy the hobby 
of bird watching? Quite apart from the ability to process such 
trivia (albeit perhaps not quite so tongue-in-cheek), the need of 
which many Mini systems salespersons appear to impress 
prospective clients with, it really quickly comes back to the 
person who is responsible for the upkeep of such records. After 
all, it is only as these multi-information databases are kept 
accurate, that we can use them for anything like the supposed 
whiz-bang manipulations we were originally sold on. I can't 
picture OUR parishioners bothering to inform the secretary of 
every minute change in 'church-roll status' (why they wouldn't 
probably be aware that much of the information existed on file, or 
that it was in any way necessary to the 'efficient' running of the 
church), and I certainly wouldn't like to be in the position of our 
local church secretary should the responsibility ultimately rest on 
HER shoulders to keep up the records!" 

I reprinted the above because it is food for thought, for 
anyone maintaining a computerized database. Do we really NEED 
to file away every last bit of information about a person? 

If you are interested in contacting Mr. Easton and/or 
obtaining further information about Christian Computer-Based 
Communications, you may write him at 44 Delma Drive, Toronto, 
Ontario M8W 4N6 or phone him at (416) 251-1511 (home) or 
(416) 965-1230 (work), or contact him through CompuServe 
# 71426,1371. I will mention that this organization does have 
some church-related software available for sale, but 
unfortunately, at the present time it is mostly written for 
Commodore machines (Commodore has a much better dealer support 
network in Canada than they do in the U.S.). However, the CCBC 
folks attempt to write these programs in 'plain vanilla' BASIC so 
that they can be easily transferred to other machines. They also 
apparently have a "once in a while" newsletter. If your church is 
using (or thinking about using) a computer, at least drop them a 
line and let them know what you're up to. 

DISKETTE TIP - How many of you remember -T-C-S->, or 
the Tidewater TRS-80 Users Group (if you do, then you probably 
owned or used a TRS-80 Model I back before microcomputers 
became the "in" thing). Anyway, you may remember Les Logan, one 
of the driving forces behind that group. Well, Les is alive and 
well and running a disk drive alignment and repair business in 
Norfolk, Virginia, and he passes along this tip! 

Do you know why alignment diskettes don't have hub rings? 
Because the rings and the diskettes they are "supposed" to 
protect have different temperature and humidity expansion 
coefficients (or maybe it is the adhesive that's different). 
Anyway, the rings don't return to the original shape after 
expanding/contracting with temperature and humidity changes as 
plain diskettes will, so they can cause randomly placed areas of 
head compliance and alignment problems, especially at 96 or 100 
tracks per inch. The price you pay for durability is reliability, 
unless you maintain good temperature/humidity control. 
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MODEM PROTOCOL DOCUMENTATION by Ward Christensen 
- Many people ask me for documentation on my modem protocol [a 
popular error detecting and correcting protocol used by many 
Bulletin Board Systems -ed.3, so here it is' 

l/i/82 by Ward Christensen [last revision was 8/9/821. I 
will maintain a master copy of thisi Please pass on changes or 
suggestions via CBBS/Chicago at (312) 545-8086, CBBS/CPMUG 
(312) 849-1132 or by voice at (312) 849-6279. 

NOTE this does not include things which I am not familiar 
with, such as the CRC option implemented by John Mahr. 

At the request of Rick Mallinak on behalf of the guys at 
Standard Oil with IBM P.C.s, as well as several previous 
requests, I finally decided to put my modem protocol into writing. 
It had been previously formally published only in the AMRAD 
newsletter. 

Table of Contents! 

1. DEFINITIONS 

2. TRANSMISSION MEDIUM LEVEL PROTOCOL 

3. MESSAGE BLOCK LEVEL PROTOCOL 

4. FILE LEVEL PROTOCOL 

5. DATA FLOW EXAMPLE INCLUDING ERROR RECOVERY 

6. PROGRAMMING TIPS. 

1. DEFINITIONS! <soh> 01H, <eot> 04H, <ack> 06H, 
<nak> 15H, <can> 18H. 

2. TRANSMISSION MEDIUM LEVEL PROTOCOL! 
Asynchronous, 8 data bits, no parity, one stop bit. The protocol 
imposes no restrictions on the contents of the data being 
transmitted. No control characters are looked for in the 128-byte 
data messages. Absolutely any kind of data may be sent - binary, 
ASCII, etc. The protocol has not formally been adopted to a 7-bit 
environment for the transmission of ASCII-only (or unpacked-hex) 
data , although it could be simply by having both ends agree to 
AND the protocol-dependent data with 7F hex before validating 
it. I specifically am referring to the checksum, and the block 
numbers and their ones-complement. 

Those wishing to maintain compatibility of the CP/M file 
structure, i.e. to allow rnodemming ASCII files to or from CP/M 
systems should follow this data format! 

* ASCII tabs used <09H)J tabs set every 8. 

* Lines terminated by CR/LF (ODH OAH) 

* End-of-file indicated by A Z, 1AH. (one or more) 

* Data is variable length, i.e. should be considered a 
continuous stream of data bytes, broken into 128-byte chunks 
purely for the purpose of transmission. 

* A CP/M "peculiarity"! If the data ends exactly on a 
128-byte boundary, i.e. CR in 127, and LF in 128, a subsequent 
sector containing the A Z EOF character(s) is optional, but is 
preferred. Some utilities or user programs still do not handle 
EOF without "Zs. 

» The last block sent is no different from others, i.e. there 
is no "short block". 

3. MESSAGE BLOCK LEVEL PROTOCOL! Each block of the 
transfer looks like! 

<SOHXblk #X255-blk *><-- 128 data bytes--Xcksum> 
in which! 

<SOH> = 01 hex 

<blk #> = binary number, starts at 01 increments by 1, and 
wraps OFFH to 00H (not to 01) 

<255-blk #> = blk # after going through 8080 "CMA" 
instruction, i.e. each bit complemented in the 8-bit block number. 
Formally, this is the "ones complement". 

<cksum> = the sum of the data bytes only. Toss any carry. 

4. FILE LEVEL PROTOCOL! 

4A. COMMON TO BOTH SENDER AND RECEIVER! All errors 
are retried 10 times. For versions running with an operator (i.e. 
NOT with XMODEM), a message is typed after 10 errors asking 
the operator whether to "retry or quit". 

Some versions of the protocol use <can>, ASCII ~X, to cancel 
transmission. This was never adopted as a standard, as having a 
single "abort" character makes the transmission susceptible to 
false termination due to an <ack> <nak> or <soh> being corrupted 
into a <can> and canceling transmission. 

The protocol may be considered "receiver driven", that is, 
the sender need not automatically re-transmit, although it does in 
the current implementations. 

4B. RECEIVE PROGRAM CONSIDERATIONS! The receiver 
has a 10-second timeout. It sends a <nak> every time it times 
out. The receiver's first timeout, which sends a <nak>, signals 
the transmitter to start. Optionally, the receiver could send a 
<nak> immediately, in case the sender was ready. This would save 



the initial 10 second timeout. However, the receiver MUST 
continue to timeout every 10 seconds in case the sender wasn't 
ready. 

Once into a receiving a block, the receiver goes into a 
one-second timeout for each character and the checksum. If the 
receiver wishes to <nak> a block for any reason (invalid header, 
timeout receiving data), it must wait for the line to clear. See 
"programming tips" for ideas 

Synchronizing! If a valid block number is received, it will be! 
1) the expected one, in which case everything is fine! or 2) a 
repeat of the previously received block. This should be 
considered OK, and only indicates that the receivers <ack> got 
glitched, and the sender re-transmitted! 3) any other block number 
indicates a fatal loss of synchronization, such as the rare case of 
the sender getting a line-glitch that looked like an <ack>. Abort 
the transmission, sending a <can>. 

4C. SENDING PROGRAM CONSIDERATIONS! While waiting 
for transmission to begin, the sender has only a single very long 
timeout, say one minute. In the current protocol, the sender has a 
10 second timeout before retrying. I suggest NOT doing this, and 
letting the protocol be completely receiver-driven. This will be 
compatible with existing programs. 

When the sender has no more data, it sends an <eot>, and 
awaits an -CadO, resending the <eot> if it doesn't get one. Again, 
the protocol could be receiver-driven, with the sender only having 
the high-level 1-minute timeout to abort. 

5. DATA FLOW EXAMPLE INCLUDING ERROR RECOVERY! 
Here is a sample of the data flow, sending a 3-block message. It 
includes the two most common line hits - a garbaged block, and an 
<ack> reply getting garbaged. <xx> represents the 
checksum byte. 



SEWER 



<soh> 01 FE -data- <xx> — > 
< — 

<soh> 02 FO -data- xx — > 
<— 

<soh> OZ FD -data- xx — > 

<soh> 03 FC -data- xx — > 

(ack gets garbaged) < — 

<soh> 03 FC -data- xx — > 

<eot> — > 



RECEIVER 
tines out after 10 seconds, 
<nak> 

<ack> 

(data gets line hit) 

<relO> 

<ack> 

<3CR> 

<ack> 
<ack> 



6. PROGRAMMING TIPS! 

* The character-receive subroutine should be called with a 
parameter specifying the number of seconds to wait. The receiver 
should first call it with a time of 10, then <nak> and try again, 10 
times. 

After receiving the <:soh>, the receiver should call the 
character receive subroutine with a 1-second timeout, for the 
remainder of the message and the <cksum>. Since they are sent as 
a continuous stream, timing out of this implies a serious like 
glitch that caused, say, 127 characters to be seen instead of 128. 

* When the receiver wishes to <nak>, it should call a 
"PURGE" subroutine, to wait for the line to clear. Recall the 
sender tosses any characters in its UART buffer immediately upon 
completing sending a block, to ensure no glitches were 
mis-interpreted. 

The most common technique is for "PURGE" to call the 
character receive subroutine, specifying a 1-second timeout, and 
looping back to PURGE until a timeout occurs. The <nak> is then 
sent, ensuring the other end will see it. 

* You may wish to add code recommended by John Mahr to 
your character receive routine - to set an error flag if the UART 
shows framing error, or overrun. This will help catch a few more 
glitches - the most common of which is a hit in the high bits of 
the byte in two consecutive bytes. The <cksum> comes out OK 
since counting in 1-byte produces the same result of adding 80H + 
80H as with adding 00H + 00H. 

MODEM FILE TRANSFER PROTOCOL by D.L. Covill is 
reprinted from Personal Systems (San Diego Computer Society 
Newsletter)! 

The file transfer protocol used in the MODEMx series of 
programs is a very good (although not perfect) protocol that has 
become something of a de facto standard, because it is in the 
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public domain and nas been widely distributed on various remutp 
CP/M systems in * he country. 

The protocol was originally developed by Ward Christensent 

who wrote the original MODEM.ASM. It has since been enhanced 

by several others. This writeup is based on an article by Kelly 

Smith in CP'M News, January 1981, extended to include 

; 5cussion o* CRC and batch transfers. 

WHAT IS A PROTOCOL AND WHY DO WE NEED ONE? 

A protocol isi quite simply, the ritual courtesies exchanged 
by two separate but equal computer systems in order to insure an 
orderly and correct transfer of information. For short, 
interactive communications we can do without one because the 
information transferred is visible, and if it looks wrong or we 
lose it we can immediately ask for it again, 

The situation is different when transferring data or program 
files. The volume to be transferred is greater, thus there is a 
greater chance of transmission errors. It's hard to tell whether 
an error has occurred (such as in COM files), and retransmitting 
the entire file would take too long and might only make thinos 
worse. 

A protocol provides! 

a. Fugitive control over the process and procedure. 

b. A means of detecting errors in the transmission process. 

c. The ability to retransmit any portion that has errors. 
Note however, that BOTH parties to the transmission must 

use the SAME protocol, or the ritual doesn't work. That's the 
reason for this document - so that people that want to (or have 
to) use a program other than MODEM7 can implement the XMODEM 
protocol and join the great army of public-domain transmitters. 

CONTROL CHARACTERS USED 

The following ASCII standard control characters are used in 
the protocol! 



SOH 


Start of Heading 


01H 


(CTRL-A) 


ACK 


Acknowledge 


06H 


(CTRL-F) 


NAK 


Negative acknowledge 


15H 


(CTRL-U) 


EOT 


End of Transmission 


04H 


(CTRL-D) 


CAN 


Cancel 


18H 


(CTRL-X) 



GENERAL TRANSMISSION SCHEME 
~~ Data is sent in 128 byte numbered blocks, with a single 
tecksum appended to each block. The receiving computer 
performs its own checksum as it acquires the incoming data, and 
upon completing each block compares its result with the checksum 
from the sending computer. If they match, it returns an ACK to 
the sender, meaning "received OK, send some more." If they don't 
match, a NAK (15H) is returned, meaning "that didn't look right, 
please send it again." This process continues until the entire file 
has been transmitted (or the number of errors causes one of the 
parties to give up). 

Received data is stored in memory, then written to disk 
every 16 blocks (more or less - on the FORUM version, this is 
every 20 blocks). 

BLOCK FORMAT 

The sending computer transmits a block in the following 
form! 



SOH Start of Heading 
Block # 

Complement of block # 
<128 data bytes> 
Checksum 



01H 
8 bits 
8 bits 
8 bits each 
8 bits 



The checksum is calculated by summing the SOH, block 
number, block number complement, and the 128 data bytes. 

STARTING THE TRANSMISSION 

The sending and receiving systems have to get "in sync" to 
start the transmission. This is easy - the sending computer 
simply waits for an initial NAK from the receiving computer. He's 
sure to get one, for the receiving computer will "time out" looking 
for data and send the NAK as a signal that he didn't receive a 
data block. The sending computer knows this and uses it as a 
signal to start the transmission. 



Sending computer 
(waiting) 



Receiving computer 
(waiting) 
(times out) 
NAK (15H) 



Data block 1 
Data block 2 



ACK (OtH) 



£t'.. 



RE-TRANSMITTING A BLOCK 
What happens if the block is NAK'ed? 
computer just re-=5'!d c the previous blcrk. 



Easy, the sending 



Sending computer 
Data block 2 (errors, 
Data block 2 (again) 
Data block 3 



Receiving computer 

NAK 

ACK 

etc 



But what if the sending computer never receives the ACK (or 
NAK)? The sending computer times out after 10 seconds, decides 
that it has failed, and re-transmits the block. This is the reason 
for the block numbers - the receiver detects that this is the 
previous block all over again, throws it away, and returns an ACK, 
thereby catching up. The integrity of the block number is verified 
by summing the SOH (01H) with the block number plus the 
complement of the block number - this result must be zero for a 
proper transfer (e.g., for block 7, 01+07+FS=00), 
The sequence of events then, looks like this! 



Sending Computer 

.... 

Data block 2 

Data block 2 (again) 

Data block 3 



Receiving Computer 

ACK (garbled) 
ACK (but disregards 
duplicate data) 
etc. 



CONCLUDING A TRANSMISSION 

Normal completion of a data transfer concludes with an EOT 
(End of Transmission, 04H) from the sending computer, with a 
final ACK from the receiving computer. 



Sending Computer 
Last data block 
EOT 
<END> 



Receiving Computer 

ACK 

ACK 

<END> 



MODEM7 BATCH TRANSFERS 

The MODEM7 program allows "batch" file transfers - the 
sending program says something like! 

SB NEWSTUFF,* 
and the receiving program says simply "RB." 

The B sub-option means (a) that more than one file will be 
transmitted and (b) that the sending computer will send the file 
names as well as the data. What concerns us is the protocol for 
sending the file name. 

(This function was added by someone other than Ward 
Christensen! it works, but isn't normal communications practice.) 
Basically, the sender sends the file name ONE CHARACTER AT A 
TIME, and the receiver ACK's each character separately. At the 
end, the sender sends an EOF (1AH) and the receiver replies with 
the checksum! If it matches, the sender sends an ACK, the 
receiver replies with a NAK, and we fall into the normal file 
transfer sequence. 



Sending Computer 



1st letter 
2nd letter 

11th letter 
EOF (1 AH) 
ACK 
Data block 1 



Receiving Computer 
(awaiting file name) 
(times out) NAK 
ACK 
ACK 

ACK 

checksum 
NAK 
etc 



At the end of the data transmission, the receiver sends 
another NAK and gets either another file name or another EOT, 
indicating that there aren't any more, (Note! This may not be 
precisely correct in all details - the program is hard to read after 
all the volunteer labor on it!) 

CRC CHECKING 

MODEM7 also added a Cyclic Redundancy Check (CRC) option. 
This replaces the one-byte checksum with two bytes of CRC. CRC 
checking is much more reliable than checksums, giving better that 
99.99% probability of error detection. If CRC checking is 
requested, the receiving system sends a 'C in place of the initial 
NAK. If the sender responds within 3 seconds, the transfer 
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continues with CRZ checking in effect. If there is no reply within 
3 seconds, the receiver assumes the sender doesn't know about 
CRC checking (old version or different program), sends a NAK, and 
settles down to use the old checksum system. In batch mode, the 
decision about the first file carries forward for the others. 
MODEM7 and XMODEM are set up for CRC checking by default, 
but the user an specify either method at will. 

ERROR ABORTS 

The protocol will tolerate a reasonable amount of line noise, 
retransmitting when necessary. If the line quality is really 
trashy, however, after 10 retries (on the same block), the 
receiving computer will display "Retry or Quit?". If the operator 
enters "Q", a CAN (CANcel, 18H) is sent to cancel the entire 
transfer session. 

PROBLEMS 

Unfortunately, the protocol is not entirely bullet-proof. 
While the following cases are very rare, they can conceivably 
occur! 

1. At end of transmission, if the receiving computer misses 
EOT, it will continue to wait for the next block (sending NAK's 
every 10 seconds, up to 10 times) and eventually "time out." 

2. There is a possibility that an ACK could be "garbled" to a 
CAK, thus aborting prematurely. 

Do not use the "V" (View) sub-option during file transfer 
with a slow (4800 baud or less) terminal or hard copy printer. It 
takes too long to write each character to these terminals, so you 
don't always get back in time to catch the next one from the 
modem. This should be readily apparent if it occurs. 

USE FOUR DOUBLE-SIDED DISK DRIVES WITH A TRS-80 
MODEL I? - I'm told that this is possible, but don't have the full 
details. However, I'll give you what I do have and perhaps some 
of you hardware hackers can take it from here. 

The apparent problem is that the Western Digital FD1791 
disk controller (or equivalent) IC used in most Model I double 
• density adapters does not have side select output, Most DOSes 
"fudge" a side select by using the line that would normally control 
the fourth drive in a four-drive system for side select purposes 
(this probably isn't technically accurate but it's a dose enough 
approximation for the moment). However, the FD1795 is an 
equivalent to the FD1791 with only one difference - pin 25 is 
defined as a side select output instead of a read gate, If a 
FD1793 controller was originally used (the equivalent of a FD1791 
except has a true data bus instead of an inverted data bus), the 
FD1797 would be the replacement with side select. 

Now comes the part that I'm really not sure of. I'm told that 
you can just pull the original controller IC, plug in the 
replacement with side select output, connect up a disk drive cable 
that has no pins pulled (that is, you do HOT want to use the stock 
Radio Shack disk drive cable), and you're ready to run 
double-sided with four drives. Well f maybe. But this leaves a 
whole host of unanswered questions, such as what are the 
requirements for the disk operating system? 

So, here's a challlenge to you hardware hackers with Model I 
TRS-80s. How about setting up your system to run four 
double-sided drives, using as much of the above info as you can 
get to work for you. Keep track of the steps you had to go 
through to make it work (including how you configured your DOS), 
and send it to me (also please mention what brand of double 
density adapter you're using, if you know). I'll print the info here 
in Horthern Bytes, Maybe some of us can start using our old 
Model Is at full disk drive capacity! 

MISCELLANEOUS MODEL 4 INFORMATION from various 
sources (authors unknown)! 

The following patches can be applied to your TRSDOS 6.0 
working disks to make life a little easier. They should not be 
applied to your master disk. 

.Patch for TRSDOS 6.0 

.To force file allocation to start from track 1 upward 

.instead of using the random allocation it comes with 

.Apply the patch SYS0/SYS.LSIDOS 

D04,E1=2E 01 00 00 00 00!F04,E1=D5 CD B8 06 Dl 6C 

.End of Patch 

.Patch to prevent the DIR cmd from clearing the screen 
.Apply to SYS6/SYS.LSIDOS 
D07,55=0D!F07,55=1C 
.End of Patch 



,Tnp follov- ;riy will replace the Lib Command Vio: d "REMOVE'' 
.with the /.'end "KILL" to maintain consistency in the method 
.of getting unwanted files off your disks. 
.Apply to SYS1/SYS.LSIDOS 

D01,C8=4B 49 4C 4C 20 20!F01,C3=52 45 4D 4F 56 45 
.End of Patch 

The following patch is by Guy Omer! 

.Patch to Re-format 'LOG-ON' and 'MENU' of COMM/CMD 6.0.0 

,(C) 1983 Guy Omer 

.UPDATE! 06/12/83 

D07,1B=4D45 4E 55 

F07,1B=20 3F 3F 3F 

D09,FD=3E3C 38 

F09,FD=2D3S 3E 

D0A,00=3E 20 66 6F 72 20 4D 45 4E 55 

F0A,00=20 66 6F 72 20 6D 65 6E 75 0A 

The following patch is by Jimmy Nord! 

. FSTBOOT/FIX - 07/28/83 

. This patch modifies the BOOT/SYS module to 

, increase the speed of read/write disk i/o. 

. To execute patch type! 

. 'PATCH BOOT/SYS.V6KCZA USING FSTBOOT/FIX'. 

. To remove patch type! 

. 'PATCH BOOT/SYS.V6KCZA USING FSTBOOT/FIX (REMOVE)'. 

. Note! This patch will make the clock less accurate 

. and type-ahead may lose characters during disk I/O. 

. Patch by Jimmy Nord [70605,3731 

D0C,A5=0EF3 CD 6B OF IE 16 DBF0 A3 28 FB ED A2 7A 

F0C,A5=OE CD 6B OF IE 16 DB FO A3 28 FB ED A2 F3 7A 

D0D,56=00 00 00 

F0D,56=CD00 05 

D0D,F5=FAF3 CD 6B OF IE 76 DB FO A3 28 FB ED A3 DB 

F0D,F5=FACD 6B OF IE 76 DBFO A3 28 FB ED A3 F3 DB 

. end of speed patch. 

The passwords for TRSDOS 6.0 are as follows! 



/SYS - 


LSIDOS 


or 


DB0 


/FLT - 


■GHNA 


or 


WHM2 


/DRV 


- V71A 


or 


UBJ 


/CMD 


-W0CK 


Dr 


GJ60 



/BASIC - BASIC (includes overlays) 
/DCT - WOCK or QJ60 

The first of these are the "Real" passwords, the second, decoded 
with SU+ 

The following /JCL file can be used to move TRSDOS 6.x 
/SYS programs into the MEMDISK! 



//alert 3,3,3,3 

, Creating MEMDISK in Banks 1 and 2 

system (drive=2,driver="memdisk") | 

d 

d n //alert 4,4 

. Write protecting MEMDISK 



//alert 6,6,6,6,0,0,0,0 

* 

.Moving system files to MEMDISK 

backup S/sys'.O !2 (sys) 



system (drive=0,wp) 
//exit 



.Press <ENTER> to swap system drive 
//alert (3,3) 

system (system=2) 



t 

& I 

/stem drive ■ 
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If you want to format double sided disks, just specify the 
following in the format command line* 

FORMAT J? (SIDES=2) 
with the ? being the drive you want to use. 

The Model 4 BASIC does have a sound command, even if it's 
not in the book. The syntax is SOUND (X,Y) where X is the tone 
(1 thru 7) and Y is the duration. It will accept 1/2 second 
intervals in the duration. 

Here are a pair of BASIC speed change subroutines for use 
in the Model III mode. You've probably seen the wrong way to do 
this in other publications, well, here's the correct way! 

5 ' THESE TWO tINES USED AS SUBROUTINES WILL TURN ON 
THE 4 MHZ CLOCK ON A MODEL 4 (LINE 8000) AND TURN IT 
BACK OFF (LINE 9000) 

6 ' THESE MAY BE USED AS SUBROUTINES WITH APPROPRIATE 
GOSUBS BEFORE AND AFTER DISK I/O. NEWDOS/80 HAS 
PROVISIONS FOR HIGHER SPEED CLOCKS (SYSTEM OPTION BJ). 
TURN HER ON AND LET HER RUN. 

8000 X=PEEK(16912K X=X OR 64! POKE 1$912,X! OUT 236.X! 

RETURN 

9000 X=PEEK(16912)! X=X AND 191! POKE 16912.X! OUT 236,X! 

RETURN 

PATriTC^ T n at |]|OM QOMF PROGRAMS TO WORK WITH THE 

nnnH ttt ™™ t "» nc wm" >»m> ^ &* i>™tM 

Special patches to TRS-80 MOD III transferred programs so 
that they will work with NEWDOS/80 version 2.0! TRSDOS does 
not use the same <BREAK> key initialization as does NEWDOS. 
Therefore, certain programs that you transfer over from TRSDOS 
to NEWDOS will not work properly. The following zaps will allow 
<BREAK> key operation. Use SUPERZAP in the DFS mode to 
apply the following zaps! 

1) PROGRAM! FORTRAN/CMD (also known as EDIT/CMD) 
Filespec! EDIT/CMD 

Sector 02, byte MH Iron AF 32 IE 53 

to C3 A8 7C 10 
Sector 43, byte S4H frw 10 00 00 00 10 00 00 00 00 00 00 00 

toAF32 1E533EC93278UC3D251 

2) PROGRAM! F80/CMD (within the FORTRAN package, 
Compiler) 

Filespec! F80/CMD 

Sector 00, byte 01H Iron C3 Al 57 00 (0 00 00 00 
to 3E C? 32 78 44 C3 Al 57 

3) PROGRAM L80/CMD (within the FORTRAN package, Linker) 
Filespec! L80/CMD 

Sector 00, byte 07H Iron AF 32 15 13 

to C3 E4 71 00 
Sector 35, byte 72H fron 30 00 00 00 00 00 00 00 00 00 00 00 

to 3E C? 32 78 H AF 32 15 13 C3 07 5Z 

4> PROGRAM Series I Editor Assembler - Disk (This is a 
prettier program than is supplied on your NEWDOS/80 operating 
disk, and is supplied by Radio Shack 
Filespec! EDTASM/CMD 
Sector 02, byte 00H fron 2A 0D 40 

toC3EA5B 
Sector 05, byte 8DH fron 1C 6? 63 65 4E 73 45 44 20 71 6E 20 

toA£3EC93Z78HZA0D10C36B58 

The purpose of these zaps is to reload the BREAK enable 
function of NEWDOS/80, which TRSDOS generally fails to do. 

3E,C9,32,78,44 is the group of HEX bytes to be patched into 
appropriate areas of the various TRSDOS, and other programs 
that require the <BREAK> key to work. You should be able to 
patch other TRSDOS programs. By using LMOFFSET/CMD to 
locate the program's entry point and looking at the program, a 
careful choice of patch can be determined. I hope that this helps 
those that want to use the great features of NEWDOS/80 with 

their TRSDOS programs. 

BobDratch 06/12/82 

NEWDOS/8 PDRIVE SETTING S - The following information 
was placedonThlTL'ansing, Michigan CompuNet BBS by SYSOP 
Gordon Williams. The PDRIVE settings shown below can also be 
used on the Model I, provided that when TD=E, the letter A in 
specification TI=A... must be changed to C, D, or E depending on 
whether a Percom, Radio Shack, or LNW type double-density 
modification is used! 



PDRIVE settings for NEWDOSSO version 2 Model 3 — to be 
used when you want to read/write diskettes written under other 
DOS's (compiled from information provided by Greg Small and 
Dennis Hill, two fellow Sysops... Thanks, fellas!) 

MODEL III DISKS! 

To read/write Model III TRSDOS v 1.3 (DD)! 

TI=AM,TD=E,TC=40,SPT=18,TSR=3,GPL=6,DDSL~17,DDGA=2 
To read/write Model III DOSPLUS and LDOS (DD)! 

TI=A,TD=E,TC=40,SPT=10,TSR=3,GPL=2,DD5L=20,DDGA=2 

MODEL I DISKS! 

To read/write Model I TRSDOS v 2.3, DOSPLUS, LDOS (SD>! 

TI= A,TD= A ,TC=35,SPT= 1 0,TSR=3,GPL=2,DDSL= 1 7 ,DDG A=2 
To read/write Model I NEWDOSSO v 2, (DD)! 

TI=AK,TD=E,TC=35,SPT=18,TSR=3,GPL=2,DDSL=17,DDGA=2 
To read/write Model I DOSPLUS and LDOS (DD)! 

TT=A,TD=E,TC=35,SPT=10,TSR=3,GPL=2,DDSL=17,DDGA=2 

NOTE! If Model I disks were written with 40 tracks, change 
"TC" to 40 land, for DOSPLUS or LDOS, change DDSL to 20 -ed.3, 
"DD" and "SD" are abbreviations for Double Density and Single 
Density respectively. I have not tested these settings on an 
LDOS disk, but they should work since DOSPLUS and LDOS can 
read each other. 

To change the PDRIVE table on the disk in drive 0, and to 
make the changes effective for diskettes placed in drive 1! 

PDRIVE 1 TI=C TD=E DDGA=2 A 

If anyone knows how to set PDRIVE for 80 track DOSPLUS and 
LDOS diskettes, please contact Gordon Williams at CompuNet 
(517-339-3367) or Dennis Hill at Babblenet (517-485-6232). 

Gordon Williams Oct, 10, 1983 

[Editor's note! According to a recent article by Alan 
Abraharnson in the Voice of the '80 Newsletter, a Model I 
MULTIDOS "P" Density disk would take the same PDRIVE 
settings as a standard Model I NEWDOS/80 (DD) disk, except that 
DDSL would be set to one-half of the TC value] 

MAX-80 PATCH FOR TASMON - The following LDOS patch 
file allows TASMON to run on a Lobo MAX-80! 
.LTASMON/FIX - 02/12/83 

.Patch to TASMON/CMD to allow use of LDOS *KI *DO and *FR 
.drivers allowing TASMON to run on Lobo MAX-80 
X'7933'=D5 11 15 40 FB CD 13 00 F3 Dl C9 
X'7A1C'=D5 11 ID 40 CD IB 00 Dl C9 
X'7A45'=D5 11 25 40 CD IB 00 Dl C9 
.End of patch 

ARE YOU BORED? Here's an item I can agree with (at least 
sometimes) - it's excerpted from "I/O News Update" by Si Hawk 
in The I/O Port! 

Programming is a boring job! That was the finding by a group 
of researchers at the University of Colorado. After examining 
data from more than 6,000 computer programmers the group found 
that over 50% found their jobs boring and unchallenging. The 
researchers further declared that by making programming jobs 
more satisfying the resulting increase in programmer productivity 
would amount to 10% to 40%. 

BOOBY TRAPS is reprinted from the Winnipeg Micro-80 
User's Group newsletter! 

I was given an article about Software Piracy that mentioned 
a new way I hadn't heard of. Here's a bit of info from the article! 

BOOBY TRAPS - a particularly insidious variety of 
psychological warfare that either lets you spend hours creating 
files on your pirated program, before NEWing your diskette, or 
(even worse) a new breed of diskette with holes punched 
strategically around the perimeter to ENSURE that it will be the 
LAST diskette you copy on that drive. 

The last one is used on some (expensive) business software 
packages. The label on the disk clearly states! 

THIS DISK IS COPY PROTECTED. Any attempt to duplicate 
may cause permanent damage to disk drive. 

It appears that this is no idle threat. By rotating the 
diskette in its sleeve, one finds a 3 mm hole punched in the 
magnetic media, near the outside edge. If the diskette was 
duplicated, the drive would attempt to read the whole diskette 
and catch the hole, which could tear the diskette and/or bounce 
the recording head mechanism off the platter, PERMANENTLY 
DAMAGING the disk drive, 

I've seen the first one operate but haven't run into the 
second, Forewarned is forearmed. 
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OPPORTUNITIES 



How to make it on your own with computers. New product forecasts, used equipment and residual value studies, price/ 
performance studies, DP spending analyses, evaluation of acquisition methods. What's new and what's best in hard- 
ware, software, courseware, databases, networking, publications, grants, videodisks and consortia. Money-making 
opportunities for microcomputer owners. Business ideas, opportunities, pitfalls to beware, marketing hints and 
sources for the micro-entrepreneur. The booming computer industry has produced an explosion in hardware and soft- 
ware that offers confusion to some computer owners and enlightening predictability to others. The key to business 
success in the computer business is good information. Yet the business experience from which good information is 
derived can be very expensive. The experts who publish the services offered in this unique package are professionals 
with long experience and who devote their full time to their work. Here's how you can obtain the fruits of their experi- 
ence for less than 90c apiece. Through this bargain-packed offer, SELECT INFORMATION EXCHANGE, America's 
leading financial subscription agency, makes available to you a selection of 16 sample subscriptions to a variety of 
money-making, money-saving DP publications, magazines and newsletters. Their regular subscription prices range 
as high as $295 apiece. Your price for the entire package under this amazing one-time-only offer is $1 4, or about 90<£ 
apiece. Exact descriptions of each of the 1 6 publications are below. To order the entire package of 1 6 sample subscrip- 
tions, merely complete and return the coupon below, along with your $1 4 remittance. 



1. FINANCIAL & INVESTMENT SOFT- 
WARE REVIEW. Receive a sampling of 
articles from past issues. Contains invest- 
ment software reviews, and unique articles 
on investing strategy, with a special focus on 
micro-computerized investing. 1 Yr, $60. 

2. SMALL BUSINESS COMPUTERS. The 

practical computer magazine for busines- 
speople Offers clear solutions to problems 
common to microcomputer users. Includes 
in-depth reviews of equipment and software, 
industry news, and new products. A non- 
technical approach for individuals consider- 
ing a computer purchase as well as for those 
who already own a system 1 Yr, $12.97. 

3. COMPUTER ECONOMICS REPORT. 

The financial advisor of DP users: new prod- 
ucts forecasts, current third party lease 
prices, used equipment prices and residual 
values forecasts, price/performance charts, 
tax and law factors, data processing spend- 
ing analyses, evaluation of acquisition 
methods. 1 Yr, $295. 

4. SCOPE. Designed for developers and 
users of software for instruction, re- 
search, and communication on the uni- 
versity level. Reports on hardware, course- 
ware, databases, networking, publications, 
campus news, grants, videodisks and con- 
sortia. Especially useful is an international 
calendar of related conferences. 1 Yr, $47. " 

5. COMPUTER EXECUTIVE LETTER. 

Information to assist and support the deci- 
sions of DP executives: cost of ownership, 
analyses of new product announce- 
ments, DP personnel salaries, evaluation 
of price versus performance, forecast of 
future products, residual value forecasts, 
and more. 1 Yr, $195. 

6. COTTAGE COMPUTING. Monthly maga- 
zine designed to help microcomputer 
owners cash in on the booming computer 
industry. Each issue is packed with factual 
articles, news, trends, case studies, money- 
making opportunities, pitfalls to beware, and 
much more. Learn how others are making 
cash with their computer and how you can 
join them. 1 Yr, $14. 

7. COMPUTER FRAUD & SECURITY BUL- 
LETIN. Reports on techniques of computer 
crime, security management, management 
audit and financial control, recruitment and 
employee screening, new security hardware 
and software. Written for auditors, inspec- 
tors, DP managers, financial and corporate 
management in computer using companies 
—especially banks, finance houses, etc. 
1 Yr,$190. 



8. COMPUTER SHOPPER. A buy, sell and 
trade publication for computer equipment 
and software. Bargains from individuals and 
dealers worldwide. Approximately, 84 big 
1 1 " x 14" pages every month. 1 Yr, $10. 

9. MICRO MOONLIGHTER NEWSLET- 
TER. Devoted exclusively to aiding the 
owner of a personal computer in the crea- 
tion, building, and maintenance of a home- 
based business. Contains business ideas, 
marketing hints, and sources for the micro- 
entrepreneur. 1 Yr, $25. 

10. MICRO M.D. JOURNAL. Focuses on Hi- 
Tech and Medical stocks with comprehen- 
sive analysis of stability and growth potential 
using highly successful measures of market 
momentum. Provides reviews of new finan- 
cial software for tax management, stock 
investment and commodities trading. In 
depth reports on computer applications for 
the health professional. 1 Yr, $60. 

11. COMPUTER DESIGN: Serves those 
companies or organizations concerned with 
design and application of Digital Equipment 
and Systems in computing, data processing, 
control and communication. This field 
covers engineering activities being applied 
in industry, government, the Military, busi- 
ness and the sciences. 1 Yr, $50. 

12. EDP WEEKLY. Industry Reports Inc. 
The top news in the data processing indus- 
try, plus digest of new contract awards. 
Government procurements, of orders, 
installations and applications of EDP equip- 



ment: highlights of Wash ington events that 
affect EDP business; listings of new prod- 
ucts and literature; business, financial and 
corporate news, major personnel changes 
and upcoming events. 1 Yr, $120. 

13. PERIPHERALS DIGEST. Industry 
Reports Inc. A sophisticated newsletter 
directed to Executives in Electronic Data 
Processing covering converters, data com- 
municators, disc, displays, drums, OCR, 
plotters, printers, remote computing, tape 
and time-sharing. 1 Yr, $88. 

14. SOFTWARE DIGEST. Industry Reports 
I nc. A bi-weekly roundup of significant-devel- 
opments in all areas of the computer soft- 
ware industry. 1 Yr, $88, 

15. WORLD SOFTWARE MARKETS. Cov- 
erage of microcomputer software markets 
world-wide. Overseas business opportuni- 
ties for software publishers distributors. 
Market trends. Turnkey projects. Overseas 
publishers distributors seeking franchises, 
licensing, joint-venture development. 
School use of microcomputers. Leading 
machines. Distribution and marketing chan- 
nels. 1 Yr, $60. 

16. BUSS. Covers Heath Kit and Zenith 
micro-computers with announcements of 
new Heath Zenith compatible products, 
reports of user's experiences with their sys- 
tems, news about Heath Zenith corporate 
activities and user community events. 
"Assistance Wanted" and "For Sale"' 
columns. 1 Yr, $28 



FREE COMPUTER MAGAZINES? Answer this questionnaire! 

Own personal computer? (A) Yes (B) No Plan to buy within year"- 1 (C) Yes (D) No Want free 
PC magazines? (E) Yes (F) No. Any children under 1 8 ? (G) Yes (H) No Brand owned or to be 
bought: (I) Adam (J) Apple (K)Atari (L) Commodore (M) Compaq (N) DEC (O) Epson (P) IBM 
(Q) Kaypro (R) NEC (S) Osborne (T) Pet (U) Radio Shack (V) Tl (W) VIC (X) \fector (Y) Xerox 
(2) Zenith (2) Other 



■ The Alternate Source 

' 704 North Pennsylvania Avenue 

' Lansing, Michigan <WHH> 



Package #48 



I YES. Please send me your package of sample subscriptions to 16 different specialized 
• computer advisory services as described above Although the regular annual subscrip- 
tions range as high as $295 apiece, I am enclosing only $14 or about 90c apiece, as com- 
' plete payment for the package. 



I 



NAME. 



ADDRESS- 



CITY- 



STATE. 



ZIP. 



I NOTE: Publications listed,nrthis ad are those participating in the offer at the time the ad was prepared. 
■ Over the course ol time, many ol those listed might discontinue or withdraw Irom the offer. When this 
occurs, other publications ol the same general substance are substituted. Therefore, some of the publi- 
I cations actually received under the offer might be different from some of those listed in the ad 
I 



MODULA-2! 



NOW AUAILABLE 

The Alternate Source Information Outlet is now the North 
American distributor for the Hochstrasser Computing Modula- 
2 System for Z80 CP/M! If you thought that Modula-2 wasn't 
possible on an 8-bit machine, keep reading! The programmer 
goals were to create a full Modula-2 compiler for an 8-bit 
machine that generates a reasonably small amount of code in a 
reasonably small amount of time leading to reasonably short 
execution times. These goals are now realities! 

WHAT MAKES MODULA-2 SO GREAT? 

In several PASCAL dialects, there exists possibilities to split 
programs apart Into different "modules ". These modules are 
compiled as If they were complete programs Just lacking the 
main program. Vou can freely use procedures declared in one 
such "module" in others. All you have to do is to declare bow 
this Procedure looks and indicate that It is "external". It is a tool 
that is indispensable for the successful mastery of large 
programming Projects. It is especially helpful for Projects that 
are carried out by groups of programmers. In programmer 
terms. Modula-2 takes the concept of "local" and "global" 
variables to new dimensions. The programmer has complete 
control. 

THE DOCUMENTATION 

Manual Release 3-28-85/Pwh - almost 300 pages -- is very 
complete and well Indexed (nine pages of carefully thought out 
subjects and subdivisions). It is presumed that the user has a 
some familiarity with PASCAL Please note that the current 
documentation has been updated since an older version of this 
product was crittaued in an issue of BYTE. For persons who get 
SQueemish at the thought of spending money, we have 
constructed a "Modula Sales Kir which includes the complete 
Table of Contents and other information from the manual. One 
of these is free upon request. 

POWER IS WHAT VOU GET 

The Modula-2 Compiler Package for Z80 CP/M includes a 
linker, a reference lister, a converter, a system configuration 
package, two libraries (detailed below) and three test 
programs. Complete step-by-step instructions are included for 
assembling the test programs. The System generates fast, 
ROMable. reentrant Z80 native code. Assembly language 
integration is supported, as well as assembly language 
compiler output. 



SOFTWARE SUPPORT 

Included with this version of Modula-2 Is a complete set of 
source code library routines including TERMINAL SEMO. 
TEXTS. REALTEXTS. INOUT. REAUNOUT. MATHUB. 
SVSTEM. ASCII. CHAINING. CMOLIN. CONTROLS. 
STRINGS. LONGSETS. CONVERSIONS. CONVERTREAL 
FILENAMES. FILESYS. FILES. MOVES and OPSVS. The new 
documentation includes a START-UP GUIDE. 
INTRODUCTION TO MOOULA-2. IMPLEMENTATION GUIDE, 
ADVANCED PROGRAMMING GUIDE and APPENDICES that 
detail error messages, object code format considerations, 
reserved words and symbols, the ASCII character set. 
language definition, a bibliography and 9 pages of index. A 
special section is devoted to Programming With Belter 
Efficiency. The documentation is filled with small sample 
Modula-2 programs. 

SVSTEM CONSIDERATIONS 

Please note that this is a large system. The compiler itself uses 
about 1 70k of disk space. It is desirable to have at least two 
drives holding 350 Kilobytes of disk storage each to work 
comfortably with the system. A single double-sided eighty 
(holding 700k) would be Ideal. Unless otherwise requested, the 
Modula-2 Compiler for Z80 CP/M will be shipped using the 
Montezuma Micro 40-track. single-side format The compiler 
(s only tested under CP/M 2.2. Eight inch CP/M formats are also 
available upon request. 

FOR NEW MODULA-2 PROGRAMMERS 

Folks near the mid-Michigan area: This summer we are 
Planning at (east one seminar detailing the use of Modula-2. We 
have a special package price on the seminar, which includes the 
price of the compiler and complete documentation, along with 
PERSONAL INSTRUCTION and enough diskettes to make a 
backup of your software and for working/scratch purposes. 
The price of the Modula-2 Compiler Package for CP/M. 
including the seminar and all mentioned above is $200. This 
price requires that you bring VOUR OWN CP/M computer. The 
price for the seminar with OUR computer Is $300. The Price 
for the software without the seminar is $165. The seminar 
without the software (you provide your own Modula-2 compiler 
and computer) is S59.95 if you make your reservations by 
August 1st. $99.95 after that date. The 8-hour seminar will 
take place In Lansing on Saturday. August I Oth. and include 
lunch. Advanced seminars are Planned and will depend on the 
success of this seminar, naturally. 
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Subscription Information 

Northern Bytes is edited by Jack Decker and published on 
an irregular basis by The Alternate Source Information 
Outlet. Back issues are available startlne with Volume 5. 
Number I . Issues Prior to that are not available. Some of 
the most valuable articles from earlier issues may be 
reprinted in future issues of Northern Bytes. Currently 
there are eleht back issues available for Volume S. as well 
as all Issues from Volume 6. All back issues are $2 each. 

It is very easy to be Placed on the Northern Bytes 
REGULAR list. Simply place your address. Visa or 
MasterCard number and expiration date on file with us. 
We will start with the Issue you request. We do not bill you 
for ANY ISSUE until that Issue has been mailed. This way. 
we can continue to offer you top quality Information with 
absolutely no risk to you. There's no question of what to 



do about unfulfilled issues if we decide to quit PubHsMng, 
Unless otherwise requested, we presume your 
subscription will extend through the month of your 
expiration date. 

Don't have a charge card, hub? We understand the myriad 
of reasons for not having them and we feel that a To-Be- 
involced" policy could help increase the demand for 
Northern Bytes. If you'll do It for us. we'll do it for you. 
Would you like to be Placed on a regular list TO BE 
BILLED for each issue? You could then send a check for 
the issues as they are mailed. If you didn't send a check, 
we would Presume that your Interest has died and 
discontinue your subscription. The only requirement for 
getting onto the list is to pay for the first issue up front: 
the next will be mailed automatically. If you request. You 
are Insured that you will receive top of the line TRS-80 
Information as it is released. Ask to be placed on the NO 
RISK "To-Be-lnvolced Northern Bytes List". 



Call or write* but SIGN UP TODAY! 

The Alternate Source Information Outlet 

704 North Pennsylvania Avenue 

Lansing, Ml 48906 

(517)482-8270 
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NORTHERN BYTES 

c/o Jack Oecker 

1804 West 1 8th Street 

Lot* 155 

Saott Ste. Martc. MIcWmo 49783 

MCI Mall Address: 102-7413 

Telex: 6501027413 

(Answerback: 6501027413 MCI) 

POSTMASTER: If undeliverable return to: 



Butt Ma M 
U.S. Postal 
Permit 4815 
Ml 
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Soon*. 7M North PnawMoto Avenue. Laming. Mtcfcltan 48906 
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